dont know how to di this

[alan myers]

Sub step1()
'
' step1 Macro
'
For x = 0 To 50

'
Range("A111").Select
Selection.Cut
Range("C110").Select
ActiveSheet.Paste
Range("A112").Select
Selection.Cut
Range("D110").Select
ActiveSheet.Paste
Range("A110:D110").Select
Selection.Cut
ActiveWindow.SmallScroll Down:=-54
Range("A55+x").Select
ActiveSheet.Paste
Range("C61").Select
ActiveWindow.SmallScroll Down:=57
Rows("110:111").Select
Selection.Delete Shift:=xlUp
Range("C119").Select

Next x


this part
Range("A55+x").Select









End Sub

 

[6StringJazzer]

di this

Range("A" & 55+x).Select

 

[mrshl9898]

Also this is how to tidy your code up after recorded.

Though it seems a bit nonsensical at a glance to keep cutting and pasting then delete what you pasted

Sub step1()
'
' step1 Macro



For x = 0 To 50
Range("A111").Cut Range("C110")
Range("A112").Cut Range("D110")
Range("A110:D110").Cut Range("A" & 55 + x)
Rows("110:111").Delete Shift:=xlUp

Next x

Range("C119").Select

 

[alan myers]

Also this is how to tidy your code up after recorded.

Though it seems a bit nonsensical at a glance to keep cutting and pasting then delete what you pasted

Sub step1()
'
' step1 Macro



For x = 0 To 50
Range("A111").Cut Range("C110")
Range("A112").Cut Range("D110")
Range("A110:D110").Cut Range("A" & 55 + x)
Rows("110:111").Delete Shift:=xlUp

Next x

Range("C119").Select

 

[alan myers]

it keeps move from cell d to cell e back and forth

 

[Michael M]

Might have been easier to simply explain what you are trying too do rather than post a vague macro.
I'm sure someone will write a more efficient snippet of code.
You also need to update your profile, telling us your Excel version AND what OS you are using. Answers can be different for different version of Excel AND OS