Hello,

Forgive me if this shows up twice. I neglected the subject line.

I am trying to transfer a range to an array, then transfer the values back
to a different range, based on a condition. My array is returning
"subscript out of range" error. Thanks in advance for any help.

Sub TransferData()
Dim i As Integer
Dim x()
x = Range("AG3:AG398")
For i = 0 To 397
If IsEmpty(Cells(i + 3, 7)) Then
Cells(i + 3, 7).Value = x ( i )
End If
Next i

End Sub