Copy all cells in range if not isempty

I'm not 100% certain what you want but I think it is this:

Sub rangepaste1()
Dim count
For count = 4 To 65
    If Range("I" & count) + Range("K" & count) <> 0 Then
        Range("I" & count & ":K" & count).Copy Range("O" & count)
    End If
Next
If Now < "9:29:58" Then Call copyPrices Else Exit Sub
End Sub