sczerniak,
Assuming you are doing this for 180 sets of four cells, and only using row 1 of sheet 'SL_Background', this should work for you:
Sub tgr()
Dim rngCopy As Range
Dim rngDest As Range
Dim i As Long
Set rngCopy = Sheets("SL_Background").Range("M1:P1")
With Sheets("CreateSL")
Set rngDest = .Cells(.Rows.Count, "B").End(xlUp).Offset(1)
If rngDest.Row < 9 Then Set rngDest = .Range("B9")
End With
For i = 1 To 180
rngCopy.Copy rngDest
Set rngCopy = rngCopy.Offset(, 4)
Set rngDest = rngDest.Offset(1)
Next i
Set rngCopy = Nothing
Set rngDest = Nothing
End Sub
Bookmarks