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

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" wrote in message
...
I want to copy from E75 to I colum and go to next blank cell.
But tis does not work.

Sub copytest()

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

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

Thanks