Hi again,

Further to the above discussion, I have some more issues that need resolving, mainly around the IF statement. What I am trying to do is tell the code to look at the cell, see if its after 23:00 and before 07:00 and if it is copy the cell next to it. I just can't resolve this logical test. Any help? 

Sub Macro2()
'
' Macro2 Macro
'
Range("A1").Select

Do Until IsEmpty(ActiveCell)


If ActiveCell.Value > TimeSerial(23, 0, 0) Or ActiveCell.Value < TimeSerial(7, 0, 0) Then
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Copy
ActiveCell.Offset(0, 2).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(1, -3).Range("A1").Select


Else
ActiveCell.Offset(1, 0).Range("A1").Select

End If
Loop
End Sub