一 建議是買一本書來學比較好
不要全都用錄的
要有變數的觀念 雖然目前能用 但是以後 會是你學習的瓶頸

二
產生工作表的部分
命名你的工作表
撈資料
分成三部份寫比較好
這樣 你以後要增加其他功能時 會比較方便
Public k As Integer
--------------------------------------------
Sub worksheets_pro() '工作表指令1

On Error GoTo errhandler

Application.ScreenUpdating = False
Do Until Worksheets.Count = 4
k = Worksheets.Count
Worksheets.add after:=Worksheets(k)
Loop

Call worksheets_sd

errhandler:
MsgBox "工作表指令1未完成"

End Sub

---------------------------------------------

Sub worksheets_sd() '工作表指令2

On Error GoTo errhandler

Dim wn1 As String, wn2 As String, wn3 As String, wn4 As String

wn1 = "GBTR001": wn2 = "GBTR002": wn3 = "GBTR003": wn4 = "GBTR004"

With Worksheets(1)
.Name = wn1
.Tab.Color = RGB(220, 20, 60)
End With

With Worksheets(2)
.Name = wn2
.Tab.Color = Worksheets(1).Tab.Color
End With

With Worksheets(3)
.Name = wn3
.Tab.Color = Worksheets(1).Tab.Color
End With

With Worksheets(4)
.Name = wn4
.Tab.Color = Worksheets(1).Tab.Color
End With

call 我撈

errhandler:
MsgBox "工作表指令2未完成"

End Sub

--------------------------------------------------

Sub 我撈() '工作表指令3

On Error GoTo errhandler

Application.ScreenUpdating = False

With Worksheets(GBTR004")
.Select

<<<這裡寫下你要撈資料的語法>>>

Call 下一個動作

End With

Exit Sub

errhandler:
MsgBox "連線中斷"
MsgBox "'工作表指令3未完成"

End Sub