Hey guys,
I have a file that uses every column in a worksheet and fills it with data. How could I make my macro simply continue this on a new worksheet? I feel like I'm making it a lot harder than it needs to be. Basically, I need this portion of my code to work until it fills a sheet, then have it create a new one and keep recording there, including the correct dates and headings.

ThisWorkbook.Activate
                Worksheets(dc & "device_names").Activate
                
                 x = 1
                 y = 2
                 
                 'This do loop puts the headers in the first row and makes a header
                 'for each instance of x which is found in the range A:A of the sheet which
                 'corresponds with the variable dc.
                    
                    Do
                    For Each x In Range("A:A")
                    Worksheets(dc & "device_names").Activate
                    Cells.Range("A:A").Activate
                         
                         If x = svr Then
                         ActiveCell.Offset(1, 0).Activate
                            x = ActiveCell.Value
                            End If
                            
                        Do While x = 1
                        ActiveCell.Offset(1, 0).Activate
                        x = ActiveCell.Value
                        ndname = x
                        Loop
                    
                    If x = "" Then
                        Exit Do
                    End If
                     
                        
                     
                     Worksheets(dc).Activate
                        If y <= 254 Then
                        Cells(1, y) = svr & x & " 'I/Os per Second'"
                        I = 0
                        ElseIf y >= 255 Then
                        I = I + 1
                        Worksheets.Add().Name = dc & "_" & I & "_overflow"
                        Workbooks(filename).Activate
                                Range("B5").Select
                                    Range(Selection, Selection.End(xlToRight)).Select
                                    Selection.Copy
                                Workbooks(myname).Activate
                                Worksheets(dc & "_" & I & "_overflow").Activate
                                Cells(1, 1) = "Date/Time"
                                Cells(1, 1).Activate
                                ActiveCell.Offset(1, 0).Activate
                                Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=True
                        End If
                                                
                            

                        Workbooks(filename).Activate
                            Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
                                SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
                                On Error Resume Next
                                
                                Selection.Offset(2, 1).Activate
                            Range(ActiveCell, Selection.End(xlToRight)).Select
                            Selection.Copy
                        
                        ThisWorkbook.Activate
                        Worksheets(dc).Activate
                        If y > 255 Then
                            Worksheets(dc & "_" & I & "_overflow").Activate
                        End If
                                    If Cells(2, y) = "" Then
                                    Cells(2, y).Activate
                                        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
                                            False, Transpose:=True
                                    Else:
                                    Cells(2, y).Select
                                        Selection.End(xlDown).Activate
                                            ActiveCell.Offset(1, 0).Activate
                                                Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
                                    End If
                        
                          
                          If y > 254 Then
                          y = 1
                          Worksheets(dc & "_" & I & "_overflow").Activate
                            Cells(1, y + 1) = svr & x & " 'Response Time (ms)'"
                          End If
                        
                        If y <= 254 Then
                        Cells(1, y + 1) = svr & x & " 'Response Time (ms)'"
                        End If
                        
                        Workbooks(filename).Activate
                            ActiveCell.Offset(8, 0).Activate
                            Range(ActiveCell, Selection.End(xlToRight)).Select
                            Selection.Copy
'
                        ThisWorkbook.Activate
                            Worksheets(dc).Activate
'                            LastRow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
                                    If Cells(2, y + 1) = "" Then
                                    Cells(2, y + 1).Activate
                                        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
                                            False, Transpose:=True
                                    Else: Cells(2, y + 1).Select
                                            Selection.End(xlDown).Activate
                                            ActiveCell.Offset(1, 0).Activate
                                                Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
                                    End If
                                            
                        
                        y = y + 2
                    Next x
                    Loop While x <> ""

      
      Windows(filename).Close
      Next day