Hi Howard,

Am Fri, 28 Jun 2013 22:53:17 -0700 (PDT) schrieb Howard:

How do I make start from A21 and go up from there on sheet 1?

try:

Dim nRow As Integer

With Sheets("Sheet1")
nRow = WorksheetFunction.CountA(.Range("A1:A21"))
Range("A1:Z4").Copy .Cells(21 - (nRow + 3), 1)
Range("A1:Z4").ClearContents
End With


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2