Help with a Type Error

[Pedros]

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

 

[Simon Lloyd]

you could try pasting this in to a standard module, you would need a
button on your toolbar to run the macro or a keyboard shortcut, you can
enter your range in the first input box and then your formula or
anything you want in the cells in the second.

Have fun!

Regards,
Simon

Sub cpystuff()
Dim rng As Range
Dim mycell
Dim t
t = InputBox("Enter your range in this format A1:A20", "Range entry",
"You must not use the inverted commas before and after the range")
s = InputBox("enter your formula here!")
Set rng = Range(t)
With Sheets(ActiveSheet.Name)
For Each mycell In rng
mycell.Value = s
Next mycell
End With
End Sub