エクセルマクロに詳しい方、教えて下さい。宜しくお願いします。

最初のシートの設定が間違っているように見えますが、

どちらかは DataSheet でしょうか。

FROM がないときは、９行目から

TOがないときは B列が空白行になるまでの例です。

Sub 一括出力()
'一括出力　Macro
    Dim PrintSheet As Worksheet
    Dim DataSheet As Worksheet
    
    Set DataSheet = Worksheets("A") '★★★ どっちかはデータシート？：とりあえずAを変更
    Set PrintSheet = Worksheets("B")
    
    Dim startRow As Long
    Dim endRow As Long
    
    If IsEmpty(DataSheet.Cells(3, 6).Value) Then
        startRow = 9
    Else
        startRow = DataSheet.Cells(3, 6).Value
    End If
    
    If IsEmpty(DataSheet.Cells(3, 9).Value) Then
        endRow = DataSheet.Range("B9").End(xlDown).Row
    Else
        endRow = DataSheet.Cells(3, 9).Value
    End If
    
    Dim r As Long
    For r = startRow To endRow
        If DataSheet.Cells(r, 2).Value <> "" Then Exit For
        
        If DtaSheet.Cells(r, 1).Value >= 1 And DataSheet.Cells(r, 1).Value <> "" Then
            PrintSheet.Cells(6, 47).Value = DataSheet.Cells(r, 1).Value
            PrintSheet.Calculate
            PrintSheet.PrintOut
            Debug.Print r, DataSheet.Cells(r, 1).Vlue
        End If
    Next
End Sub