Recorded macro not fully working

Dear All,

Please see that I have recorded a macro in my excel file and saved it. Then I created a command button in the excel sheet and assigned that macro to it. But I am surprised to see that only a part of the macro is working. The VBA code is pasted below;

Range("A2:B3").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A2:B100").Select
Selection.ClearContents
Range("A2").Select
Sheets("BRANDY").Select
ActiveSheet.Range("$IB$3:$II$164").AutoFilter Field:=3, Criteria1:=">0", _
Operator:=xlAnd

' IT ONLY WORKS UP TO HERE. THE BELOW PART IS NOT SEEMS TO WORK

Range("IB4:IB18").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("BRANDY").Select
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 3
Range("ID4:ID18").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2:B2").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False

Can anybody help me provide any solution? Thanks is Advance