Help Finishing A Macro To Insert Data Into A Column

[gaspower]

Hello,

I need some help to finish up a macro. The current macro I am using is,

Sub changeheaders()
    With Sheet1
    
    Columns("B:D").Select
Selection.Delete Shift:=xlToLeft

        .Cells(1, 1).Value = "v_products_model"
        .Cells(1, 2).Value = "v_products_quantity"
        .Cells(1, 3).Value = "EOREOR"
        
        
    End With
End Sub

which gets me to this point,

I need to fill column "C" with EOREOR down to match last data in column "A",

Thank you
JR

 

[gaspower]

Hello,

Was able to fix with this macro,

Option Explicit

Sub changeheaders()
    With Sheet1
    
    Columns("B:D").Select
Selection.Delete Shift:=xlToLeft

        .Cells(1, 1).Value = "v_products_model"
        .Cells(1, 2).Value = "v_products_quantity"
        .Cells(1, 3).Value = "EOREOR"
        
        
      Dim LastRow As Long
    Range("C2").Value = "EOREOR"
    
      LastRow = Range("A1:A" & Range("A1").End(xlDown).Row).Rows.Count
Range("C2" & ":C" & LastRow).FillDown

        
    End With
End Sub