Sub So()
Dim z, x, rng
With ActiveSheet.UsedRange
z = Cells.Find("*", Cells(1), -4123, 2, 1, 2, False).Row
For x = 1 To z Step 100
On Error Resume Next
Set rng = Range(.Rows(x), .Rows(x + 99)).SpecialCells(xlCellTypeConstants)
Set rng = Union(rng, Range(.Rows(x), .Rows(x + 99)).SpecialCells(xlCellTypeFormulas))
On Error GoTo 0
rng.Copy
Debug.Print rng.Address
Next x
End With
End Sub