Try something like the following:


Dim RowNum As Long
RowNum = 1 ' change as required
If Application.CountA(Range(Cells(RowNum, "A"), _
Cells(RowNum, "R"))) = 0 Then
Rows(RowNum).Delete
End If



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"DukeDevil" wrote in message
oups.com...
Hello,

I have a whole bunch of data that I keep mooving between
sheets.
Sometimes I forget to delete the row once I have moved it. Is
there any
sort of VBA code that I can write that recognizes when cells A
to R are
BLANK and then automatically deletes the row? Please let me
know.

Thank you.