The first one didn't work but the second one did the trick thanks. One
additional question though. Right now with these marcos I am inserting and
deleting rows. Could I instead have a marco to just move the last row down
five and paste the five new rows above it, rather than inserting rows. And
vice versa with deleting, could I clear the contents in the five rows above
the last row and then copy the last row up five? Hopefully you can understand
what I mean.

"JLGWhiz" wrote:

I looked at your original code again and maybe it would be better using these
variable values for x and lr.

Sub DelLastFive()
Dim lr As Long, x As Long
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
x = lr - 5
ActiveSheet.Rows(x & ":" & lr -1).Delete
End Sub


"JLGWhiz" wrote:

Sub DelLastFive()
Dim lr As Long, x As Long
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
x = lr - 4
ActiveSheet.Rows(x & ":" & lr).Delete
End Sub



"JBoyer" wrote:

With the help of others I have a marco that inserts cells into my worksheet.
I would also like to make a marco to remove these cells, so basically if you
would use the insert marco and then use the delete marco your worksheet would
be like it was untouched.

This is the marco used for inserting:

Sub InsertSemester()
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
v = Rows(LastRow - 1).Formula
Cells(LastRow - 1, "A").Resize(5, 1).EntireRow.Insert
Rows(LastRow - 1) = v
Rows(LastRow + 4).ClearContents
Range("AU2:BG6").Copy Cells(LastRow, "A")
End Sub

Hope You Can Help