Sub test()
Dim LR As Long
With Range("C2:D" & Rows.Count)
LR = .Find("*", .Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False, False).Row
End With
ActiveSheet.PageSetup.PrintArea = "C2:D" & LR
End Sub
Dim i As Integer
For i = 1 To Rows.End(xlUp).Count
ActiveSheet.PageSetup.PrintArea = "C2:D2" & i
Next i
Sub test()
Dim LR As Long
LR = Range("C2").End(xlDown).Row
ActiveSheet.PageSetup.PrintArea = "C2:D" & LR
End Sub