Untested from mobile:
Sub CopyPaster()
With ActiveSheet
.Range("A6").EntireRow.Copy
.Cells(Application.WorksheetFunction.CountA(.Range("A:A")+3,1).PasteSpecial xlPasteValues 'Plus 3 to account for the two blank cells in column A
End With
End sub
Collected from the Internet
Please contact [email protected] to delete if infringement.
Comments