Try this. Modify sheet name to suit

Sub copyc3toothersheet()
With Sheets("sheet14")
If Len(Application.Trim(.Range("a5"))) < 1 Then
lr = 5
Else
lr = .Cells(4, "a").End(xlDown).Row + 1
End If
'MsgBox lr
Range("c3").Copy .Cells(lr, "a")
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Bobbo" wrote in message
...
I need a macro that will copy Cell C3 from one sheet and add it to another
sheet starting at A5. If A5 already has something in it then use A6

Thx
Bob