I am trying to use the following Macro to copydown the Formula = C1 & E1
But I am getting a type error.

Public Sub CopyDown1()


Range("A1").Select
lastRow = Range("A65536").End(xlUp).Row
For i = 1 To lastRow
If Range("A" & i).Value = "" Then
Range("A" & i - 1 & ":A" & i - 1).Copy Destination:=Range("A" &
i)
End If
Next i

End Sub

What am I doing wrong?

The error is: Range("A" & i).Value = Error 2015


--
Pedros
------------------------------------------------------------------------
Pedros's Profile: http://www.excelforum.com/member.php...o&userid=28202
View this thread: http://www.excelforum.com/showthread...hreadid=569240