Chop Worksheet!

[JustinLabenne]

I am not quite grasping what your wanting here: Are there variable rows?

This copies the range you talked about to a newly created sheet called countries:

Option Explicit
 
Sub ChopiT()
    Dim wASht As Worksheet
    Set wASht = ActiveSheet
    
    Sheets.Add
    On Error GoTo ErrH
    ActiveSheet.Name = "Countries"
    
    wASht.Range("A81:A141").Copy Sheets("Countries").Range("A1")
    
ErrExit:
    Set wASht = Nothing
    Exit Sub
ErrH:
    MsgBox Err.Description
    GoTo ErrExit
End Sub