maybe this:
Dim r As Long With ActiveSheet .Rows(lr - 2).Resize(3).Copy .Rows(lr + 1) r = lr + 3 .Range("A" & r & ", F" & r & ", M" & r & ", Q" & r & ", R" & r & ", S" & r & ", T" & r).ClearContents End With
maybe this:
Dim r As Long With ActiveSheet .Rows(lr - 2).Resize(3).Copy .Rows(lr + 1) r = lr + 3 .Range("A" & r & ", F" & r & ", M" & r & ", Q" & r & ", R" & r & ", S" & r & ", T" & r).ClearContents End With
Any code provided by me should be tested on a copy or a mock up of your original data before applying it to the original. Some events in VBA cannot be reversed with the undo facility in Excel. If your original post is satisfied, please mark the thread as "Solved". To upload a file, see the banner at top of this page.
Just when I think I am smart, I learn something new!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks