VBA Copy and pasting from 1 sheet to many different sheets

[Xineq]

Hey Mr.excel

I'm trying to make a macro, that take the data from my sheet "Counting" in the range from "S4;W4" and copying that data to my sheet "overview" lastrow in collumn Q:U

Hope you can help me out here

 

[mumps]

Try:

Sub CopyData()
    Application.ScreenUpdating = False
    Sheets("Counting").Range("S4:W4").Copy Sheets("Overview").Cells(Rows.Count, "Q").End(xlUp).Offset(1, 0)
    Application.ScreenUpdating = True
End Sub

 

[Xineq]

Try:

Sub CopyData()
    Application.ScreenUpdating = False
    Sheets("Counting").Range("S4:W4").Copy Sheets("Overview").Cells(Rows.Count, "Q").End(xlUp).Offset(1, 0)
    Application.ScreenUpdating = True
End Sub

Thanks man it works really well

 

[mumps]

My pleasure.