Hi,
If all you need is the values you can assign them directly
With Sheets("OutSheet")
Rw = 4
EndRw = Range("A" & Rows.Count).End(xlUp).Row
OutRw = .Range("D" & .Rows.Count).End(xlUp).Row + 1
EndCol = Range("A3").End(xlToRight).Column
Do Until Rw > EndRw
If Cells(Rw, 41).Value > "" Then
.Cells(OutRw, 4).resize(, 4).Value = Range(Cells(Rw, 41), Cells(Rw, 44)).Value
.Cells(OutRw, 8).Resize(, EndCol - 45).Value = Range(Cells(Rw, 46), Cells(Rw, EndCol)).Value
OutRw = OutRw + 1
End If
Rw = Rw + 1
Loop
End With
Bookmarks