Hi all.
-- removed inline image ---
Ok here is my problem, I have 2 types of lines, the yellow ones are my "BOL" lines and the greenish line is "CARRIER" line. What I want to do is insert with a macro button (NEW BOL) a new truck for the day. Since I don't plan on being the one inserting the data, I need to make the macro reference lines 5 and 6 (hidden) so that each BOL line looks like row 5 and the carrier line looks like row 6. Any ideas.
my current macro looks like this:
Sub InsertRow()
Dim Rng
Rng = InputBox("Enter number of BOL'S for new trailer.")
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(Rng - 1, 0)).Select
Selection.EntireRow.Insert
Range("A5:M5").Copy Destination:=ActiveCell
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range("A6:M6").Copy Destination:=ActiveCell
End Sub
All it will do is put the Carrier line at the top. I'm hoping there is a simple fix for this, but I doubt it. Thanks
-- removed inline image ---
Ok here is my problem, I have 2 types of lines, the yellow ones are my "BOL" lines and the greenish line is "CARRIER" line. What I want to do is insert with a macro button (NEW BOL) a new truck for the day. Since I don't plan on being the one inserting the data, I need to make the macro reference lines 5 and 6 (hidden) so that each BOL line looks like row 5 and the carrier line looks like row 6. Any ideas.
my current macro looks like this:
Sub InsertRow()
Dim Rng
Rng = InputBox("Enter number of BOL'S for new trailer.")
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(Rng - 1, 0)).Select
Selection.EntireRow.Insert
Range("A5:M5").Copy Destination:=ActiveCell
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range("A6:M6").Copy Destination:=ActiveCell
End Sub
All it will do is put the Carrier line at the top. I'm hoping there is a simple fix for this, but I doubt it. Thanks
