excel vbs 复制指定列到新建的sheet中的指定列

Sub 复制到新sheet汇总()
'
' 复制到新sheet汇总 宏
'
' 快捷键: Ctrl+q
'
    Dim r1 As String
    Dim r1y As String
    r1 = "E2"
    r1y = "B"
    
    Sheets("elk地域原数据").Select
    Range(Range(r1), Cells(Range(r1y & Rows.Count).End(xlUp).Row, Range(r1).Column)).Copy
    Sheets.Add Before:=ActiveSheet
    Sheets(1).Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    
End Sub