If Target.Column < 4 And Target.Row = 1 Then
改為:
If Target.Column < 6 And Target.Row = 1 Then
.SetRange Range(Cells(1, 1), Cells(r, 3))
.SetRange Range(Cells(1, 1), Cells(r, 5))
註意:後面這句有兩處出現,都要改壹下。
還有,那個Sub Macro2()沒用,可以全部刪除。