Copy all cells in range if not isempty

hi guys,

have a stock price/volume spreadsheet that updates in realtime.

goal is to run a macro that loops every second between 09:00:00 and 09:30:00 and copies all the cells from bVolume/aVolume (columns I/K) to corresponding columns O/Q, but only if values are nonzero

therefore, if the bVolume/aVolume is zero for any given price, it will not overwrite the previous copied volume

have attempted to write macro in attached s/s but can't quite perfect it

please help!

Dim timeToRun
Sub copyPrices()
timeToRun = Now + TimeValue("00:00:01")
Application.OnTime timeToRun, "rangePaste"
End Sub

Sub rangePaste()
Dim ocell, qcell As Range
For Each ocell In Range("I4:I65")
If IsNumeric(ocell) Then
ocell.Copy (Range("O4:O65"))

Next ocell

For Each qcell In Range("K4:K65")
If IsNumeric(qcell) Then
qcell.Copy (Range("Q4:Q65"))
End If
Next qcell

If Now < "9:29:58" Then
Call copyPrices
Else: Exit Sub
End If
End Sub


matchtest2.xlsm

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

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

still having a minor issue here - this is the amended code however the cells with data (ie not empty) that should be copying to columns O and Q are not appearing - ie O/Q seem to be blanking themselves with each iteration

Sub rangePaste()
Dim count
For count = 4 To 65
    If IsNumeric(Range("I" & count)) Then
        Range("I" & count).Copy Range("O" & count)
    End If
    
    If IsNumeric(Range("K" & count)) 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

could somebody pls point me in the right direction? cheers

Works fine on your sample for me.