修改代码

KING0001

本人录制了两段宏遇到同样的问题其中标换色的部分为指定的区域，但是由于表格中的数据行数每次都不一样所以每次使用的时候都要更改区域范围的数值后运行请哪位大侠帮忙看看如何自动的识别区域不用每次都修改区域范围谢谢了！
Columns("A:R").Select
    Selection.EntireColumn.Hidden = False
    Range("A:A,G:G,I:I,O:O,Q:Q").Select
    Range("Q1").Activate
    Selection.Delete Shift:=xlToLeft
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$1:$R$143").AutoFilter Field:=5, Criteria1:=">=1", _
        Operator:=xlAnd
    ActiveWindow.SmallScroll Down:=-3
    Range("B2:M143").Select
    Selection.Copy '
End Sub

Private Sub CommandButton1_Click()
Range("B2").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("B2:B120")
    Range("B2:B120").Select
    Columns("C:C").Select
    Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 5), TrailingMinusNumbers:=True
    Columns("G:G").Select
    Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
   ActiveSheet.Range("$A$1:$M$120").AutoFilter Field:=7, Criteria1:="<>*机械*", _
        Operator:=xlAnd, Criteria2:="<>*电气*"
End Sub