Please Help...ActiveSheet.Paste Run-time error '1004'

1

1KanExcel

New Member
Joined
Apr 26, 2010
Messages
7
Hi and thanks for taking the time to read my post.

I am a total newbie, trying hard to learn VBA so that I can become more useful around an office where there are no persons with even a clue with regards to VBA.

I have recently been assigned a project to cut my teeth on and things appeared to be going quite well until I started to duplicate the small Macros that I had written by changing the filtered text type in order to make one big Macro that does the lot.

Problem is no matter how I lay out the Macro, at some point during the runtime I get the following error message:

'The information cannot be pasted because the Copy area and the paste area are not the same size and shape. Try one of the following:

  • Click a single cell, and then paste.
  • Select a rectangle that's the same size and shape, and then paste.'
What is weird is, all of the Macros are the same and as such cannot for the life of me work out why it works with some sometimes, others another time but never always and without error:confused:

Here is my Macro in full:

Rich (BB code): 
[FONT=&quot]Sub MOVE_PROGS_TO_SHEET_1_MACROB()<o:p></o:p>[/FONT]
  [FONT=&quot]'<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$24938").AutoFilter Field:=2, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*esd*", Operator:=xlOr, Criteria2:="=*ehd*"<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets.Add After:=Sheets(Sheets.Count)<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B49").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$17965").AutoFilter Field:=21, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*esd*", Operator:=xlOr, Criteria2:="=*ehd*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B34").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A3").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14538").AutoFilter Field:=22, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*esd*", Operator:=xlOr, Criteria2:="=*ehd*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B2686").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14469").AutoFilter Field:=23, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*esd*", Operator:=xlOr, Criteria2:="=*ehd*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B3804").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14435").AutoFilter Field:=2, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*esm*", Operator:=xlOr, Criteria2:="=*ehm*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B100").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B49").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$17965").AutoFilter Field:=21, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*esm*", Operator:=xlOr, Criteria2:="=*ehm*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B34").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A3").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14538").AutoFilter Field:=22, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*esm*", Operator:=xlOr, Criteria2:="=*ehm*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B2686").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14469").AutoFilter Field:=23, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*esm*", Operator:=xlOr, Criteria2:="=*ehm*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B3804").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14435").AutoFilter Field:=2, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*dis mas*", Operator:=xlOr, Criteria2:="=*ccmas*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B100").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B49").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$17965").AutoFilter Field:=21, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*dis mas*", Operator:=xlOr, Criteria2:="=*ccmas*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B34").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A3").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14538").AutoFilter Field:=22, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*dis mas*", Operator:=xlOr, Criteria2:="=*ccmas*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B2686").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14469").AutoFilter Field:=23, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*dis mas*", Operator:=xlOr, Criteria2:="=*ccmas*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B3804").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14435").AutoFilter Field:=2, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*tx mas*", Operator:=xlOr, Criteria2:="=*dia*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B100").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B49").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$17965").AutoFilter Field:=21, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*tx mas*", Operator:=xlOr, Criteria2:="=*dia*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B34").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A3").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14538").AutoFilter Field:=22, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*tx mas*", Operator:=xlOr, Criteria2:="=*dia*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B2686").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14469").AutoFilter Field:=23, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*tx mas*", Operator:=xlOr, Criteria2:="=*dia*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B3804").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14435").AutoFilter Field:=2, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*dhl/ho*", Operator:=xlOr, Criteria2:="=*dhl/h0*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B100").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B49").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$17965").AutoFilter Field:=21, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*dhl/ho*", Operator:=xlOr, Criteria2:="=*dhl/h0*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B34").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A3").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14538").AutoFilter Field:=22, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*dhl/ho*", Operator:=xlOr, Criteria2:="=*dhl/h0*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B2686").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14469").AutoFilter Field:=23, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*dhl/ho*", Operator:=xlOr, Criteria2:="=*dhl/h0*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B3804").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14435").AutoFilter Field:=2, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*dme*", Operator:=xlOr, Criteria2:="=*dsc*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B100").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B49").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$17965").AutoFilter Field:=21, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*dme*", Operator:=xlOr, Criteria2:="=*dsc*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B34").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A3").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14538").AutoFilter Field:=22, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*dme*", Operator:=xlOr, Criteria2:="=*dsc*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B2686").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14469").AutoFilter Field:=23, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*dme*", Operator:=xlOr, Criteria2:="=*dsc*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B3804").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14435").AutoFilter Field:=2, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*dkd*", Operator:=xlOr, Criteria2:="=*dci*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B100").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B49").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$17965").AutoFilter Field:=21, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*dkd*", Operator:=xlOr, Criteria2:="=*dci*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B34").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A3").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14538").AutoFilter Field:=22, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*dkd*", Operator:=xlOr, Criteria2:="=*dci*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B2686").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Range("$A$1:$AL$14469").AutoFilter Field:=23, Criteria1:= _<o:p></o:p>[/FONT]
  [FONT=&quot]"=*dkd*", Operator:=xlOr, Criteria2:="=*dci*"<o:p></o:p>[/FONT]
  [FONT=&quot]Rows("1:1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = True<o:p></o:p>[/FONT]
  [FONT=&quot]Range("B3804").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.SpecialCells(xlCellTypeVisible).Select<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.Copy<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.Paste[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Range("C1").End(xlDown).Select<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveCell.Offset(1, -2).Range("A1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Application.CutCopyMode = False<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.ClearContents<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.AutoFilter<o:p></o:p>[/FONT]
  [FONT=&quot]Cells.Select<o:p></o:p>[/FONT]
  [FONT=&quot]Range("A2").Activate<o:p></o:p>[/FONT]
  [FONT=&quot]Selection.EntireRow.Hidden = False[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]LastRow = ActiveSheet.UsedRange.Row - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Rows.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For r = LastRow To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next r<o:p></o:p>[/FONT]
  [FONT=&quot]LastColumn = ActiveSheet.UsedRange.Column - 1 + _<o:p></o:p>[/FONT]
  [FONT=&quot]ActiveSheet.UsedRange.Columns.Count<o:p></o:p>[/FONT]
  [FONT=&quot]Application.ScreenUpdating = False<o:p></o:p>[/FONT]
  [FONT=&quot]For c = LastColumn To 1 Step -1<o:p></o:p>[/FONT]
  [FONT=&quot]If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete<o:p></o:p>[/FONT]
  [FONT=&quot]Next c[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]<o:p> </o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Select<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Sheet1").Name = "PROGS"<o:p></o:p>[/FONT]
  [FONT=&quot]Sheets("Inventory 1").Select[/FONT][FONT=&quot]<o:p></o:p>[/FONT]
  [FONT=&quot]<o:p> </o:p>[/FONT]
  [FONT=&quot]End Sub<o:p></o:p>[/FONT]
On this occasion the error occurs in line 490 which I have highlighted in yellow.:(

I have tried to keep my commands as simple and generic as possible within the Macro as the spreadsheet that this is to be used on varies in size from week to week with anything up to 250,000 rows on it (although I have only tested this Macro with a database a tenth of that size to date).

I use column 'C' to find the next free row because all other columns can draw blanks.

Sorry for the HUGE first entry here, I have tried to include all the information that you might need to find a resolve but being a beginner here I am sure to have missed something so please let me know if there is any other information that I can give you.

Kind regards

Kane
 
Last edited by a moderator:

Excel Facts

Create a Pivot Table on a Map
If your data has zip codes, postal codes, or city names, select the data and use Insert, 3D Map. (Found to right of chart icons).
Sort by date Sort by votes
see these three of your code statements


Code: 
Selection.Copy
  Sheets.Add After:=Sheets(Sheets.Count)
  ActiveSheet.Paste
before writing activesheet.paste you must select the top left hand cell
where it is to be pasted.

a sample code is given below only for example
Code: 
Range("A1:A5").Select
    Selection.Copy
    Range("E5").Select
    ActiveSheet.Paste
range("E5") is the top left hand cell of the range where it is to be pasted.
that is it will be pasted on E5 to E9



simpler statement in my example will be
Code: 
range("A1:A5").copy range("E5")
This may give some idea how to correct the codes.
 
Upvote 0
You must log in or register to reply here.

Similar threads

rjplante
  • Question
VBA to extract users name from outlook
Replies
2
Views
973
Jaffirahamed
J
B
  • Question
How to Create a Loop to ignore BLANK CELLS
Replies
3
Views
238
Alex Blakenburg
A
J
  • Question
Macro modification
Replies
4
Views
134
Jeeremy7
J
R
  • Solved
SaveAs method not actually saving, wrong sheets being deleted (1004 Error)
Replies
4
Views
405
Alex Blakenburg
A
D
  • Question
Run-time error '1004': Application definted or Object defined error
Replies
5
Views
483
MARK858
MARK858

Forum statistics

Threads
1,215,035
Messages
6,122,791
Members
449,095
Latest member
m_smith_solihull

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top