Range関数を使う.vb

Public Function DataGet(SheetName As String, StartRow As Integer, StartColumn As Integer) As Variant
    Dim EndRow As Integer
    Dim EndColumn As Integer
    Dim Data As Variant
        
    With Sheets(SheetName)
        EndColumn = .Cells(StartRow, StartColumn).End(xlToRight).Column
        EndRow = .Cells(StartRow, StartColumn).End(xlDown).row
    End With
    
    Data = Sheets(SheetName).Range(Sheets(SheetName).Cells(StartRow, StartColumn), Sheets(SheetName).Cells(EndRow, EndColumn))
    
    DataGet = Data
End Function