Hi,

I need a macro to autofill COLUMN A with a word say YES until the last row
found in COLUMN B.

Right now I have the ff codes:

Sheets("VOUCHER - STEP 2").Select
Range("A5").Select
ActiveCell.FormulaR1C1 = "DEBIT"
With ActiveCell.Characters(Start:=1, Length:=5).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Set Voucher2 = Worksheets("VOUCHER - STEP 2")
Range("A5").Select
Selection.AutoFill Destination:=Range("A5:" & LastRow(Voucher2))

It shows an error on the autofill range. THANKS!