求助-通过vba代码，打开表格A，判断固定字段，copy数据至表格B内

su6836224

代码，如下，实现效果：（打开原数据 1，判断Sheets("区域自查模板").Range("B1").Text <> "站点类型"，如是，则继续执行判断；Sheets("区域自查模板").Range("B29").Text = "禅城" Then ，那么copy Sheets("区域自查模板").C5:T10数据，到测试模板内“2.站点租赁费月报”的C13单元格）
请教一下，以下需要修改哪些才能实现，谢谢。
//////////////////////////////////
Sub 宏测试1()
  Dim wkbk As Workbook '定义一个工作薄
Dim myFileName As String, x As Integer, rw As Integer '定义要读取的文件路径
'rw = ThisWorkbook.Sheets("sheet1").[W65536].End(xlUp).Row + 1
myFileName = Application.GetOpenFilename("Excel2016 (*.xlsx), *.xls") '浏览本地CSV文件
If myFileName = "False" Then '如果按取消那么弹出对话框
MsgBox "请选择文件!", vbInformation, "取消"
Else
Set wkbk = Workbooks.Open(myFileName) '先打开要复制的文件
On Error Resume Next
If Sheets("区域自查模板").Range("B1").Text <> "站点类型" Then
wkbk.Close False
MsgBox "文件错误，请重新选择!", vbInformation, "取消"
Else
If Sheets("区域自查模板").Range("B29").Text = "禅城" Then
With wkbk.Sheets("sheet1")
  Range("C5:T10").Copy Destination:=ThisWorkbook.Sheets("2.站点租赁费月报").Range("C13")
End With
wkbk.Close False '关闭打开的文件
End If
End If
End If
End Sub