엑셀 vba 입력범위모두선택, CurrentRegion

Sub 입력범위모두선택() '방법1)     Range("a1:d15").Select         '범위가 변하지 않는 경우         '수동으로 범위 잡기          '방법2)     Range("a1", Cells(Rows.Count, "d").End(xlUp)).Select         '  행         열         '단점은 d열의 마지막 값이 입력되어 있지 않을 때         '영역 일부를 빠뜨릴 수 있음.          '방법3) 응용     Range("a1", Cells(Rows.Count, "c").End(xlUp).Offset(, 1)).Select             'offset을 이용하여 전 범위 선택             '여전히 불편              '방법4) 응용2     Dim cn As Long     cn = Range("a1", Cells(Rows.Count, "a").End(xlUp)).Rows.Count         'a열의 마지막 행번호를 받아옴         'MsgBox cn :점검시 사용     Range("a1:d" & cn).Select     Range("a1").Select '점검시 사용      '방법5)     Range("b2").CurrentRegion.Select        '기준셀 커른트리전     Range("a1").Select '점검시 사용         '방법6)     Worksheets(1).UsedRange.Select         '첫번째시트 사용한 범위 End Sub