Copy all cells in range if not isempty

i probably wasn't entirely clear what i wanted but have amended your code to achieve desired result

thanks for the help!

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