You have a lot of unneeded code and selections are rarely needed. The main
problem seems to be with the filldown range. Try something like this code:

Sub FillA5Down()
Dim sht As Worksheet
Set sht = Sheets("VOUCHER - STEP 2")
sht.Range("A5").Value = "DEBIT"
With sht.Range("A5").Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 8
.ColorIndex = xlAutomatic
End With
sht.Range("A5", Range("B5").End(xlDown)).FillDown
End Sub

Mike F
"ch-d" wrote in message
...
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!