Repeat a Macro

[Kantha76]

How to repeat this macro until end of data in Column "C" .



Sub Macro4()
'
' Macro4 Macro
'
' Keyboard Shortcut: Ctrl+t
'
Range("C1273:C1275").Select
Selection.Copy
Range("D1273").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub


thanks

 

[S O WXLS]

Do you mean like this?

Sub Macro4()
'
' Macro4 Macro
'
' Keyboard Shortcut: Ctrl+t
'
Dim i As Long

For i = 1273 To Cells(Rows.Count, 3).End(xlUp).Row Step 3
Range(Cells(i, 3), Cells(i + 2, 3)).Copy Destination:=Cells(i, 4)
Next


End Sub

 

[Kantha76]

This is the data set i have to arrange

EDIT: actual information removed. Please post SAMPLE data only - Moderator

 

[S O WXLS]

what does this mean?

 

[Kantha76]

It has name , street No and city in row wise in column "C", I jus want them arrange in the column wise. Name in Column D, Street No in Column E and City in Column F