Hi All
I have a macro (see below), that archives information but
needs some fine tuning.
I have two questions that I hope someone can answer.
Firstly, in the selected ranges, they are not always fully
populated. Is it possible for the macro to detect if there
is an entry in P1:P60 AND AC1:AC60 and only allow those
lines that are populated to be archived.
Secondly, I want to add the current date to each row that
has been archived in column "A".

I would appreciate any assistance that can be offered.

Regards
Michael

Sheets("STROKE").Select
Range("E5:P60").Select
Selection.Copy
Sheets("ARCHIVE").Select
Range("B1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("STROKE").Select
Range("R5:AC60").Select
Selection.Copy
Sheets("ARCHIVE").Select
Range("B1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Application.CutCopyMode = False
End Sub