On Feb 26, 9:39*am, Hardeep kanwar
wrote:
Dear Expert

I have data like Below Mentioned in column A and Column B.I Want to Merge
and Center the Data in Column based on column A.

DEALER NAME * *
A M MOTORS MALLAPURAM * 8
A M MOTORS MALLAPURAM *
AALIANZ AUTOMOBILES NEW DELHI * 7.35
AALIANZ AUTOMOBILES NEW DELHI *
AALIANZ AUTOMOBILES NEW DELHI *
AALIANZ AUTOMOBILES NEW DELHI *
AALIANZ AUTOMOBILES NEW DELHI *
ABHARAN MOTORS UDUPI * *7.88
ABT MARUTI CHENNAI * * *7.89
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
ABT MARUTI CHENNAI * * *
AGENCY HOUSE PORT BLAIR 8.27
AGENCY HOUSE PORT BLAIR
AGR AUTOMOBILES PVT LTD VARANASI * * * *8.77
AJMER AUTOMOBILES PVT LTD AJMER 8.44
AMAR CARS PVT LTD VADODARA * * *8.11
AMAR CARS PVT LTD VADODARA * * *
AMAR CARS PVT LTD VADODARA * * *
AMAR CARS PVT LTD VADODARA * * *
AMAR CARS PVT LTD VADODARA * * *
AMAR CARS PVT LTD VADODARA * * *
AMAR CARS PVT LTD VADODARA

I need a Macro.I have 6000 data in one sheet.I have 18 Sheets like this

Thanks in Advance

Hardeep kanwar

Why would you want to do that?


Sub Button3_Click()
Dim r As Range
Dim c As Range

Set r = Range("A1", Range("A65536").End(xlUp))

Application.DisplayAlerts = False

For Each c In r.Cells

c = c & " " & c.Offset(0, 1)
c.Range("A1:B1").Merge
With c
.HorizontalAlignment = xlCenter
End With
Next c
Application.DisplayAlerts = True

End Sub