Snasui Excel Forum

Code: Select all

Sub AutoFill()
'
' AutoFill Macro
'
' Keyboard Shortcut: Ctrl+l
'
    Dim lastRow As Long
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(12, 1)), TrailingMinusNumbers:=True
    lastRow = Range("a" & Rows.Count).End(xlUp).Row
    Range("C2:H2").Select
    Selection.AutoFill Destination:=Range("C2:H" & lastRow)
End Sub

Code: Select all

Sub AutoFill()
'
' AutoFill Macro
'
' Keyboard Shortcut: Ctrl+l
'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(12, 1)), TrailingMinusNumbers:=True
    Range("C2:H2").Select
    Selection.AutoFill Destination:=Range("C2:H25")
    Range("C2:H25").Select
End Sub