Hi,

Maybe this

Sub Fill_Yes()
Set sht = Sheets("VOUCHER - STEP 2")
LastRow = sht.Cells(Cells.Rows.Count, "B").End(xlUp).Row
sht.Range("A5").Value = "DEBIT"
With sht.Range("A5").Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 8
.ColorIndex = xlAutomatic
End With
sht.Range("A6:A" & LastRow).Value = "Yes"
End Sub

--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"ch-d" wrote:

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!