Copy a cell value from one worksheet to the first blank cell in column C on another worksheet & paste the value all the way down to the last used row

[Bailey9]

Hello
It has been a number of years since I have used VBA, and just can't figure out this SIMPLE solution.

What I have so far is:
Code

1. ''''''''''''''''''''
2. 'COPY THE FILE TYPES
3. ''''''''''''''''''''
4. Sheets("DO NOT DELETE").Select
5. Range("A8").Select
6. Selection.Copy
7. Sheets("SUMMARY SHEET").Activate
8. ActiveSheet.Range("C6000").Select
9. ActiveSheet.Range("C6000").End(xlUp).Select
10. ActiveCell.Offset(1, 0).Select
11. ActiveSheet.PasteSpecial
12. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
13. :=False, Transpose:=False

 

[Bailey9]

I got it!!! I added the last two lines and it works! Thank you for your help!!

''''''''''''''''''''
'COPY THE FILE TYPES
''''''''''''''''''''
Dim LastPopulatedRow As Long

Sheets("DO NOT DELETE").Select
Range("A8").Select
Selection.Copy
Sheets("SUMMARY SHEET").Activate
ActiveSheet.Range("C6000").Select
ActiveSheet.Range("C6000").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.PasteSpecial
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

LastPopulatedRow = Range("A" & Rows.Count).End(xlUp).Row
Range("C" & LastRow + 1 & ":" & "C" & LastPopulatedRow).FillDown

 

[Bailey9]

OH, I now see you already replied to me, but I missed it. That works also!!! We are a good team. Have a good day!