1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19:
Public Sub CountryRange() 'Starts at A1:D?? and then up one row Dim intLastRow As Integer, rngRow As Range Dim rngAddress As Range, rngStart Range("D9").Select Selection.End(xlDown).Select Range("D31").Select Set rngStart = Range("D9") With rngStart.Select Selection.End(xlDown).Select End With Debug.Print End Sub