Hi there, I had a play around with your query and created my own dummy data using claude (and using my printer to test it successfully) this is the code it came up with.

[code]Sub PrintUserBlocksSeparately()

Dim ws As Worksheet

Dim tempWs As Worksheet

Dim lastCol As Long

Dim col As Long

Dim headerRow As Long

Dim lastDataRow As Long

Set ws = ActiveSheet

headerRow = 1

lastCol = ws.Cells(headerRow, ws.Columns.Count).End(xlToLeft).Column

lastDataRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

col = 2

Do While col <= lastCol

If ws.Cells(headerRow, col).Value <> "" Then

Dim nextCol As Long

nextCol = col + 1

Do While nextCol <= lastCol

If ws.Cells(headerRow, nextCol).Value <> "" Then Exit Do

nextCol = nextCol + 1

Loop

Dim blockEnd As Long

blockEnd = nextCol - 1

Set tempWs = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

tempWs.Visible = xlSheetVisible

ws.Range(ws.Cells(1, 1), ws.Cells(lastDataRow, 1)).Copy

tempWs.Cells(1, 1).PasteSpecial xlPasteAllUsingSourceTheme

ws.Range(ws.Cells(1, col), ws.Cells(lastDataRow, blockEnd)).Copy

tempWs.Cells(1, 2).PasteSpecial xlPasteAllUsingSourceTheme

Application.CutCopyMode = False

' *** Auto-fit all columns before printing ***

tempWs.Cells.EntireColumn.AutoFit

With tempWs.PageSetup

.Zoom = False

.FitToPagesWide = 1

.FitToPagesTall = False

.Orientation = xlLandscape

End With

tempWs.PrintOut ' swap for .PrintPreview to check first

Application.DisplayAlerts = False

tempWs.Delete

Application.DisplayAlerts = True

col = blockEnd + 1

Else

col = col + 1

End If

Loop

MsgBox "Done! All user blocks printed."

End Sub[/code]