Need to Split Data into sections and sheets

Hi All,

Can Someone help, ive been trying to figure out how i can use VBA to Split large number of data into sections and then into different sheets then export to text file, so i have large amount of data but it always starts at cell E5 but i want to cut 50 rows and 50 column of the data and put it into a new sheet then exports as TXT file, finally i want to repeat this until no data is left in the original work sheet.

I could have 100s or 1000s rows and columns filled but i need to be able to break it down to chunks.

Any Ideas?

ive been trying to figure out how i can use VBA

That being the case you might consider having a Mod/Admin move your thread over to that sub-forum. (Please don't do this yourself. That's called double-posting.)

This is what i got so far, its a work in progress....

Sub Findexpand()
    Dim rFound As Range
    Dim FCell As String
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("Test")
    Dim k As Long
    Dim tmpFile As String
    Dim MyData As String, strData() As String
    Dim entireline As String
    Dim filesize As Integer
    
    On Error Resume Next
    Set rFound = Cells.Find(What:="*", _
                    After:=Cells(Rows.Count, Columns.Count), _
                    LookAt:=xlPart, _
                    LookIn:=xlFormulas, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlNext, _
                    MatchCase:=False)
    
   On Error GoTo 0
    
     If rFound Is Nothing Then
        MsgBox "Done"
        
        End If
    Else
    
    FCell = rFound.Address(RowAbsolute:=False, ColumnAbsolute:=False, External:=False)
    k = sh.Range(FCell, sh.Range(FCell).End(xlDown).End(xlDown).End(xlUp)).Rows.Count
    ActiveSheet.Range(FCell).Select
    Selection.Resize(numRows + k, numColumns + 50).Select
    Selection.Cut
    ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
    ActiveSheet.Paste
    
    '~~> Change this where and how you want to save the file
    Const FlName = "C:\Users\Desktop\Chunk1.txt"

    '~~> Create a Temp File
    tmpFile = TempPath & Format(Now, "ddmmyyyyhhmmss") & ".txt"

    ActiveWorkbook.SaveAs Filename:=tmpFile _
    , FileFormat:=xlText, CreateBackup:=False

    '~~> Read the entire file in 1 Go!
    Open tmpFile For Binary As #1
    MyData = Space$(LOF(1))
    Get #1, , MyData
    Close #1
    strData() = Split(MyData, vbCrLf)

    '~~> Get a free file handle
    filesize = FreeFile()

    '~~> Open your file
    Open FlName For Output As #filesize

    For i = LBound(strData) To UBound(strData)
        entireline = Replace(strData(i), """", "")
        '~~> Export Text
        Print #filesize, entireline
    Next i

    Close #filesize
    Application.DisplayAlerts = False

    Worksheets(Worksheets.Count).Activate
    ActiveSheet.Delete
    Application.DisplayAlerts = True

    MsgBox "Done"
'   Kill tmpFile
    
    
    End If

    
End Sub