vookup

Sub STARTING()
'
' STARTING Macro
' 宏由 Administrator 录制，时间: 2020/08/12
'

'
    Range("A1:B7").Select
    Range("B7").Activate
    Rows("1:7").Delete Shift:=xlShiftUp
    Columns("G:J").Select
    Selection.Delete Shift:=xlShiftToLeft
    Columns("K:L").Select
    Selection.Delete Shift:=xlShiftToLeft
    Columns("F:F").Select
    Selection.Insert Shift:=xlShiftToRight
    Range("F1").Select
    Selection.Formula = "=C1&D1&E1"
    Range("F1").Select
    Selection.AutoFill Destination:=Range("F:F"), Type:=xlFillDefault
    Range("F:F").Select
    With Columns("F:F")
        .EntireColumn.Hidden = False
        .ColumnWidth = 23.555555
    End With
    

End Sub

Sub STARTING1()
'
' STARTING Macro
' 宏由 Administrator 录制，时间: 2020/08/12
'

'
    Windows(2).Activate
    Range("A1:B7").Select
    Range("B7").Activate
    Rows("1:7").Delete Shift:=xlShiftUp
    Range("A1:R8367").Select
    Range("B7").Activate
    Selection.Copy
    Windows(2).Activate
    Sheets.Add After:=Sheets(1), Count:=1
    ActiveSheet.