Hi all,

I've got the following code that I need to tweak, however I can't figure out how to do it

I need to add another step to the loop. In addition to looking at the c.Offset(,3).. I need it to also check c.Offset(,4) and set the copyRNG as the one that is not empty. In some instances there will be identical information in both cells, however more often than not one will be populated and not the other.

It seems straight forward to me however I have not been able to update the code below to accommodate my new requirement.

Thanks in advance for your help
OM

Sub NamespaceUTI()

Dim copyRNG As Range
Dim c As Range

For Each c In Sheets("  ").Range("I2:I1000")
     If c.Value = Date Then
        If copyRNG Is Nothing Then
            Set copyRNG = c.Offset(, 3)
        Else
            Set copyRNG = Union(copyRNG, c.Offset(, 3))
                    
        End If
    End If
  
Next c

If Not copyRNG Is Nothing Then copyRNG.Copy Sheets("Extract").Range("I1048576").End(xlUp).Offset(1)

End Sub