Need to check is cells are empty before pasting

Hi,

I have written a simple copy&paste macro.

I was wondering if anyone had any suggestions for how to check if there is no data on the row before pasting? (Seeing as there is no undo)

I guess I need and If IsEmpty type function and Else then give an error.


Sub Update_Month()

' Update the fills for the specific day

Dim number As Integer
Dim row_number As Integer

'enter number in day box at B8, then this will paste to the correct place on sheet

row_number = Sheets("Data").Range("B8").Value + 3

'I need an if statement for here I think that looks at the row entered (row_number) and checks that it is empty or zero from column 2 to 500

Sheets("Data").Select
Range("A5:HD5").Select
Selection.Copy
Sheets("Current").Select
Cells(row_number, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'Else an error message

End Sub


Could anyone help me on this? Particularly in using my row_number to look across a range.

Thanks

Do you mean like this?

Please Login or Register  to view this content.

Hi,

Thank you for your offer of help, but this is not what I am really looking for.

For example if value 12 is put in the day box (Sheets("Data").Range("B8").Value) , then data gets pasted to Sheets("Current").Cells(row_number, 2)

I need the macro to look across row_number and from columns B - GG. To see if these are empty

The issue is I don't know how to define this range using row_number and get it to check that there is no data before pasting

In this example it would be Range (15B:15GG). But I need the row to change with row_number.

Thanks