Recorded Macro

[jln via OfficeKB.com]

Here is my recorded Macro I need to turn it into VBA to speed it up. HELP.

Sub SumCert()
'
' SumCert Macro
' Macro recorded 10/12/2006 by J922703
'

'
Range("A11:A14").Select
Selection.TextToColumns Destination:=Range("A11"), DataType:=xlDelimited,
_
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,
_
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar
_
:="¦", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array
(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)),
TrailingMinusNumbers:=True
ActiveWindow.SmallScroll Down:=6
Range("A15:A36").Select
Selection.TextToColumns Destination:=Range("A15"), DataType:=xlFixedWidth,
_
OtherChar:="¦", FieldInfo:=Array(Array(0, 1), Array(19, 1), Array(35,
1), Array( _
49, 1), Array(64, 1), Array(79, 1), Array(94, 1), Array(110, 1)),
TrailingMinusNumbers _
:=True
ActiveWindow.SmallScroll Down:=27
Range("A47:A50").Select
Selection.TextToColumns Destination:=Range("A47"), DataType:=xlDelimited,
_
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True,
_
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar
_
:="¦", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array
(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)),
TrailingMinusNumbers:=True
ActiveWindow.SmallScroll Down:=15
Range("A51:A72").Select
Selection.TextToColumns Destination:=Range("A51"), DataType:=xlFixedWidth,
_
OtherChar:="¦", FieldInfo:=Array(Array(0, 1), Array(19, 1), Array(35,
1), Array( _
49, 1), Array(64, 1), Array(79, 1), Array(94, 1), Array(110, 1)),
TrailingMinusNumbers _
:=True
ActiveWindow.SmallScroll Down:=-39
Columns("A:A").ColumnWidth = 10
Columns("A:A").ColumnWidth = 10.57
Columns("B:B").ColumnWidth = 9.86
Columns("B:B").ColumnWidth = 10.71
Columns("C:C").ColumnWidth = 9.29
Columns("C:C").ColumnWidth = 10.71
Columns("C:C").ColumnWidth = 11
Columns("D").ColumnWidth = 11.71
Columns("D").ColumnWidth = 10.71
Columns("E:E").ColumnWidth = 11
Columns("G:G").ColumnWidth = 9.71
End Sub

 

[Don Guillett]

remove the scroll down lines entirely

Delete selections thusly
Range("A11:A14").TextToColumns Destination:=Range("A11"),
DataType:=xlDelimited

combine col width or change to autofit
columns("a:g").autofit