multiple copy sub

[kl2190]

hi all,

having trouble with the following. the 1st copy works but the 2nd does nothing.

Sub New_Button_Click()
LastrowSL = Worksheets("Saw List").UsedRange.Rows.Count


If Range("A3").Value = "XO" Then
Worksheets("Formulas").Range("A2:A10").Copy _
Destination:=Worksheets("Saw List").Range("B" & LastrowSL + 1)

Lastcell = Worksheets("Formulas").Cells(Rows.Count, "C").End(xlUp).Row
Worksheets("Formulas").Range("E2").Copy _
Destination:=Worksheets("Saw List").Range("C" & Lastcell + 1)

End If

End Sub


i also need to to copy down what i just pasted into the last used cell in coloum C down to the last used row in that sheet.

any help is appreciated

 

[p45cal]

Shouldn't
Lastcell = Worksheets("Formulas").Cells(Rows.Count, "C").End(xlUp).Row
perhaps be
Lastcell = Worksheets("Saw List").Cells(Rows.Count, "C").End(xlUp).Row

 

[kl2190]

your right i had that wrong. blonde moment sorry ppl. what about to copy that down to the last used row on that sheet

 

[p45cal]

Try changing your existing

Worksheets("Formulas").Range("E2").Copy Destination:=Worksheets("Saw List").Range("C" & LastCell + 1)

to

Worksheets("Formulas").Range("E2").Copy Destination:=Worksheets("Saw List").Range("C" & LastCell + 1 & ":C" & LastRowSL)

your right

Is it?