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

Sub dk()
Dim lr As Long, sh As Worksheet, sh2 As Worksheet
Set sh = Sheets("Sheet1")
Set sh2 = Sheets("Sheet2")
lr = sh2.Cells(Rows.Count, 1).End(xlUp).Row
sh.Range("C3").Copy sh2.Range("A" & lr+1)
End Sub

Change the sheet names to suit.





"Bobbo" <(E-Mail Removed)> wrote in message
news:8C59F170-A8C0-47F1-A9E2-(E-Mail Removed)...
>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

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
(E-Mail Removed)
"Bobbo" <(E-Mail Removed)> wrote in message
news:8C59F170-A8C0-47F1-A9E2-(E-Mail Removed)...
>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

What if there is something in cell a12

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"JLGWhiz" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Sub dk()
> Dim lr As Long, sh As Worksheet, sh2 As Worksheet
> Set sh = Sheets("Sheet1")
> Set sh2 = Sheets("Sheet2")
> lr = sh2.Cells(Rows.Count, 1).End(xlUp).Row
> sh.Range("C3").Copy sh2.Range("A" & lr+1)
> End Sub
>
> Change the sheet names to suit.
>
>
>
>
>
> "Bobbo" <(E-Mail Removed)> wrote in message
> news:8C59F170-A8C0-47F1-A9E2-(E-Mail Removed)...
>>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
>
>

Forgot starting in A5

Sub dk()
Dim lr As Long, sh As Worksheet, sh2 As Worksheet
Set sh = Sheets("Sheet1")
Set sh2 = Sheets("Sheet2")
lr = sh2.Cells(Rows.Count, 1).End(xlUp).Row
If shw.Range("A5") = "" Then
sh.Range("C3").Copy sh2.Range("A5")
Else
sh.Range("C3").Copy sh2.Range("A" & lr+1)
End If
End Sub

Change the sheet names to suit.

"JLGWhiz" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Sub dk()
> Dim lr As Long, sh As Worksheet, sh2 As Worksheet
> Set sh = Sheets("Sheet1")
> Set sh2 = Sheets("Sheet2")
> lr = sh2.Cells(Rows.Count, 1).End(xlUp).Row
> sh.Range("C3").Copy sh2.Range("A" & lr+1)
> End Sub
>
> Change the sheet names to suit.
>
>
>
>
>
> "Bobbo" <(E-Mail Removed)> wrote in message
> news:8C59F170-A8C0-47F1-A9E2-(E-Mail Removed)...
>>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
>
>

Had a typo:

Sub dk()
Dim lr As Long, sh As Worksheet, sh2 As Worksheet
Set sh = Sheets("Sheet1")
Set sh2 = Sheets("Sheet2")
lr = sh2.Cells(Rows.Count, 1).End(xlUp).Row
If sh2.Range("A5") = "" Then
sh.Range("C3").Copy sh2.Range("A5")
Else
sh.Range("C3").Copy sh2.Range("A" & lr+1)
End If
End Sub





"JLGWhiz" <(E-Mail Removed)> wrote in message
news:ujf%(E-Mail Removed)...
> Forgot starting in A5
>
> Sub dk()
> Dim lr As Long, sh As Worksheet, sh2 As Worksheet
> Set sh = Sheets("Sheet1")
> Set sh2 = Sheets("Sheet2")
> lr = sh2.Cells(Rows.Count, 1).End(xlUp).Row
> If shw.Range("A5") = "" Then
> sh.Range("C3").Copy sh2.Range("A5")
> Else
> sh.Range("C3").Copy sh2.Range("A" & lr+1)
> End If
> End Sub
>
> Change the sheet names to suit.
>
> "JLGWhiz" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> Sub dk()
>> Dim lr As Long, sh As Worksheet, sh2 As Worksheet
>> Set sh = Sheets("Sheet1")
>> Set sh2 = Sheets("Sheet2")
>> lr = sh2.Cells(Rows.Count, 1).End(xlUp).Row
>> sh.Range("C3").Copy sh2.Range("A" & lr+1)
>> End Sub
>>
>> Change the sheet names to suit.
>>
>>
>>
>>
>>
>> "Bobbo" <(E-Mail Removed)> wrote in message
>> news:8C59F170-A8C0-47F1-A9E2-(E-Mail Removed)...
>>>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
>>
>>
>
>