VBA to find blank cell then copy data next to blank cell

[unreal_event_horizon]

AS title says, i am trying to get mine working, but it doesnt seem to copy the data, here is the excerpt of my code that doesnt seem to work.

any advice?

Windows("Book2.xls").Activate
    Dim BCell, NBCell
    Sheets("sheet1").Range("B1").Select
    For B = 1 To 65536
    If ActiveCell.Value = Empty Then
    BCell = "B" & CStr(B - 1)
    NBCell = "B" & CStr(B - 2)
    Exit Sub
    Else
    Range("B" & CStr(B + 1)).Select
    End If
    Next B
    Range(ActiveCell.Offset(0, -1)).Select ' check with forum
    ActiveCell.Copy
    Windows("Book1.xls").Activate
    Range("A5").Select
    ActiveSheet.Paste

[unreal_event_horizon]

Hi chaps solved this if anyone wants to see it

Windows("Book2.xls").Activate
    Dim BCell, NBCell
    Sheets("sheet1").Range("B1").Select
    For B = 1 To 65536
    If ActiveCell.Value = Empty Then
    BCell = "B" & CStr(B - 1)
    NBCell = "B" & CStr(B - 2)
Range(ActiveCell.Offset(0, -1)).Select 'code should have gone here instead of at the end
    ActiveCell.Copy
    Windows("Book1.xls").Activate
    Range("A5").Select
    ActiveSheet.Paste

    Exit Sub
    Else
    Range("B" & CStr(B + 1)).Select
    End If
    Next B