help with excel macro

[Geir]

I want to copy from E75 to I colum and go to next blank cell.
But tis does not work

Sub copytest(

Range("E75").Selec
Selection.Copy
Range("I" & Rows.Count).End(xlUp).Offset(1, 0

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
False, Transpose:=Fals
Application.CutCopyMode = Fals
End Sub

 

[Bob Phillips]

Sub copytest()
Dim cLastRow As Long

cLastRow = Cells(Rows.Count, "I").End(xlUp).Row

Range("E75").Copy
Range("I" & cLastRow).Offset(1, 0).PasteSpecial _
Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
Application.CutCopyMode = False

End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Geir]

Thanks