Error when No data to paste

Hi:

in Excel 2000 spk3, I have a sub that copies a range and pastes it somewhere else. It works fine if there is data to be pasted but if the range is empty is error out. Is there a way to bypass the error and maybe have a msgbox come up and adivise the user?

this is a portion of my rookie code:

Range("BK5").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.Cut
'
Range("A5").Select
Do
If ActiveCell.Select <> "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell = ""
'
ActiveSheet.Paste

When it goes to ActiveSheet.Paste, if it there's no data to paste it errors out.


thanks