The offset moves outside the boundaries of the sheet when the schedule is fresh and empty, resulting in error 1004. need a method for correctly moving up from the initially chosen cell in a dynamic manner. Because some manufacturing lines wildly diverge from the schedule, a large offset is required.
Option Explicit
Sub Print_Line_3()
Dim lRow As Range
Application.ScreenUpdating = False
With Sheets("Line 3")
Set lRow = .Range("G1024").End(xlUp).Offset(-6, -6).Resize(24, 14)
lRow.PrintOut
End With
Application.ScreenUpdating = True
End Sub
' Starts from an arbitrary point then looks up to the last filled cell in that column.
' Moves from the selected cell up 6 then left 6 spots.
' Creates a selected range from previous cell to create a range to printout from.