Whoops almost forgot, how do I add that to my current macro?
Current Macro
Sub CleanUP_Friday_Reports()
'
' CleanUP_Friday_Reports Macro
' Marc Was Here
'
' Keyboard Shortcut: Ctrl+a
'
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(12, 1), Array(29, 1), Array(43, 1), Array(53, 1), _
Array(57, 1), Array(64, 1), Array(72, 1), Array(85, 1), Array(92, 1), Array(100, 1), Array( _
108, 1), Array(121, 1)), TrailingMinusNumbers:=True
Rows("1:14").Select
Selection.Delete Shift:=xlUp
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Cells.Select
Cells.EntireColumn.AutoFit
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
OK so what I did, was paste my 2nd macro before end sub, so i pressed enter at DataOption1:=xlSortNormal
and clicked paste
Range("a65536").End(xlUp).Select
While ActiveCell.Row > 1
If Not IsNumeric(ActiveCell.Value) Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Wend
but **** its a slow macro
and i'll be **** it deleted everything
(not exactly what i wanted)
i take it back it worked BUT, and its a big but, some of the cells further down on my list are being typecasted as numbers even though they are blank is their a way to fix that also?
maybe I can edit the macro to say is the number is column 1 above 1? yes? leave alone? no, delete row
but how?