'Почему то, объявленные как Public не работают Х( !?!?!
Dim xxBazDate As Date
Dim xxPayDay As Date
    
    For i = 1 To xt - 1 'Без заголовка
    xxBazDate = xCellBazDate.Text
    xDay = xCellDay.Value
    xxPayDay = DateAdd("Y", xDay, xxBazDate)
        If xxPayDay >= DateAdd("Yyyy", 1, xDate) Then 'долгосрочка да
        xCellLong.Value = xCellSumm.Value
        Else 'долгосрочка нет
        xCellLong.Value = 0
        End If
        If xDate <= xxPayDay Then 'непросрочено
        xCellNoPas.Value = xCellSumm.Value
        xCellPasBe180.Value = 0
        xCellPasAf180.Value = 0
        xCellNamDeb.Value = "не просрочено"

Public xxt, xi, xxDay  As Integer
Public xxCell, xxCellBazDate, xxCellDay, xxCellSumm, xxCellNoPas _
, xxCellPasBe180, xxCellPasAf180, xxCellLong As Range
Public xxDate, xxPayDay, xxBazDate As Date
Public xws As Worksheet
Sub Начали()
UF1.Show
End Sub
Sub Удаление()
xxt = Sheets.Count
    If xxt = 1 Then
        Sheets.Add After:=Sheets(Sheets.Count)
    End If
Worksheets(2).Activate
Range("A1").Value = UF1.TxbDate.Value
Unload UF1
Set xws = Worksheets(2)
xws.Name = "DATE"
xws.Visible = xlSheetVeryHidden
Set xws = Nothing
xxt = Sheets.Count
    If xxt > 2 Then
        For xi = 3 To xxt
        Application.DisplayAlerts = False
        Worksheets(xi).Delete
        Next
    End If

По_принадлежности
End Sub
Sub По_принадлежности()
Set xxCell = Worksheets("DATE").Range("A1")
xxDate = Format(xxCell.Value, "dd.mm.yyyy")
Set xxCellBazDate = Range("A2")
Set xxCellDay = Range("B2")
Set xxCellSumm = Range("C2")
Set xxCellNoPas = Range("D2")
Set xxCellPasBe180 = Range("E2")
Set xxCellPasAf180 = Range("F2")
Set xxCellLong = Range("G2")
xxt = Application.WorksheetFunction.CountA(Range("A:A"))

'    Dim xxBazDate As Date
'    Dim xxPayDay As Date
    
    
    For xi = 1 To xxt - 1
    xxBazDate = xxCellBazDate.Value
    xxDay = xxCellDay.Value
    xxPayDay = DateAdd("Y", xxDay, xxBazDate)
        If xxPayDay >= DateAdd("Yyyy", 1, xxDate) Then 'долгосрочка да
        xxCellLong.Value = xxCellSumm.Value
        Else 'долгосрочка нет
        xxCellLong.Value = 0
        End If
        If xxDate <= xxPayDay Then 'не просрочено
        xxCellNoPas.Value = xxCellSumm.Value
        xxCellPasBe180.Value = 0
        xxCellPasAf180.Value = 0
        ElseIf xxDate > xxPayDay And DateDiff("Y", xxPayDay, xxDate) <= 180 Then просрочено до 180
        xxCellNoPas.Value = 0
        xxCellPasBe180.Value = xxCellSumm.Value
        xxCellPasAf180.Value = 0
        ElseIf DateDiff("Y", xxPayDay, xxDate) > 180 Then 'просрочено свыше 180
        xxCellNoPas.Value = 0
        xxCellPasBe180.Value = 0
        xxCellPasAf180.Value = xxCellSumm.Value
        End If
        Set xxCellBazDate = xxCellBazDate.Offset(1, 0)
        Set xxCellDay = xxCellDay.Offset(1, 0)
        Set xxCellSumm = xxCellSumm.Offset(1, 0)
        Set xxCellNoPas = xxCellNoPas.Offset(1, 0)
        Set xxCellPasBe180 = xxCellPasBe180.Offset(1, 0)
        Set xxCellPasAf180 = xxCellPasAf180.Offset(1, 0)
        Set xxCellLong = xxCellLong.Offset(1, 0)
     Next
Set xxCellBazDate = Nothing
Set xxCellDay = Nothing
Set xxCellSumm = Nothing
Set xxCellNoPas = Nothing
Set xxCellPasBe180 = Nothing
Set xxCellPasAf180 = Nothing
Set xxCellLong = Nothing

End Sub