Macro Question

[klatlap]

I want to use code similar to this to copy 4 cells to another sheet and paste below the last item, when i run this code it only pastes the firt cell.

Sub Add()
Application.ScreenUpdating = False
Sheets("Results").Range("H" & Sheets("Control").Rows.Count).End(xlUp).Offset(1, 0).Value = Sheets("Control").Range("V9:Y9").Value
    Sheets("Control").Select
    Application.ScreenUpdating = True
End Sub

 

[Peter_SSs]

Try this

Sheets("Results").Range("H" & Rows.Count).End(xlUp).Offset(1, 0).Resize(, 4).Value = Sheets("Control").Range("V9:Y9").Value

 

[klatlap]

Thanks works nice.