Copy a Formula in a Loop

[Lauren123]

I have this formula, but if is more than to rows it doesnt work, maybe on a loop it will work, someone knows how to do it?

Sub CopiaSuma()
ThisWK = ThisWorkbook.Name


LastRows = Sheets("Draft").Range("C" & Rows.Count).End(xlUp).Row




Workbooks(ThisWK).Worksheets("Draft").Range("P7").Copy
Workbooks(ThisWK).Worksheets("Draft").Range("P8" & LastRows).PasteSpecial


End Sub

 

[Fluff]

How about

Sub CopiaSuma()
thiswk = ThisWorkbook.name

lastrows = Sheets("Draft").Range("C" & Rows.Count).End(xlUp).Row
Workbooks(thiswk).Worksheets("Draft").Range("P7:P" & lastrows).FillDown

End Sub

 

[JLGWhiz]

also

Sub CopiaSuma()
Dim LastRows As Long
 LastRows = Sheets("Draft").Range("C" & Rows.Count).End(xlUp).Row
 Worksheets("Draft").Range("P7").Copy Worksheets("Draft").Range("P8" & LastRows)
 End Sub

 

[Fluff]

@JLGWhiz
I think that should be

Worksheets("Draft").Range("P8[COLOR=#ff0000]:P[/COLOR]" & LastRows)

 

[Lauren123]

Hey, thanks a lot, but I change it because I wanted it to always copy the value on P7, it worked once but it had a bug I dont know what is wrong, can you hel please?
Sub CopiaSuma()


Dim rng As Range


ThisWK = ThisWorkbook.Name
LastRows = Sheets("Draft").Range("C" & Rows.Count).End(xlUp).Row
Set rng = Workbooks(ThisWK).Worksheets("Draft").Range("P7" & LastRows).FillDown

If LastRows < 7 Then
rng.Select
Else
rng.Paste
End If


End Sub

 

[Fluff]

What is in P7?

 

[JLGWhiz]

@JLGWhiz
I think that should be

Worksheets("Draft").Range("P8[COLOR=#ff0000]:P[/COLOR]" & LastRows)

Senior moment! tx.
@Lauren123, See the correction that @Fluff suggested above.