Hi
Have a sheet with data in which in which there are blanks and need to delete headers .
Task copy and create a new sheet and apply macro to merge all a single database as per attached file . There will be original sheet aand new sheet called MASTER.
However there will be other sheets but load file as sample
Recorded macro but but need help to adjust to last data row and auto sum last column
Used autofilter and go to special functions but due high data manipulation I looking a macro to save time
Have a sheet with data in which in which there are blanks and need to delete headers .
Task copy and create a new sheet and apply macro to merge all a single database as per attached file . There will be original sheet aand new sheet called MASTER.
However there will be other sheets but load file as sample
Recorded macro but but need help to adjust to last data row and auto sum last column
Used autofilter and go to special functions but due high data manipulation I looking a macro to save time
Code:
Sub del_buyer_blanl_columntest()
'
' del_buyer_blanl_columnA Macro
'
'
Range("I1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToLeft)).Select
ActiveCell.Activate
Selection.AutoFilter
ActiveSheet.Range("$A$1:$I$435").AutoFilter Field:=1, Criteria1:= _
"=Buyer's Reference", Operator:=xlOr, Criteria2:="="
Range("A3:A423").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Range("A3:I411").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.ClearContents
ActiveSheet.Range("$A$1:$I$423").AutoFilter Field:=1, Criteria1:="="
ActiveSheet.Range("$A$1:$I$423").AutoFilter Field:=1
Range("A1:A422").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
End Sub