VBA

Sub text_1()

    Sheet1.Range(Range("a1"), Range("a1").End(xlDown)).Select

    Selection.Offset(1, 0).Select

    Selection.Resize(Selection.Rows.Count - 1, Selection.Columns.Count).Select

End Sub

excel vba 값이있는열의 마지막까지 선택  열의 맨위는 재목이 들어가기때문에

선택제외 하고 선택영역을 다시 설정

range.end(xldown)
    선택셀의 아래마지막 셀 선택