ON (Left(TDE.Контрагент, Len(TDA.Контрагент)) = TDA.Контрагент)

Sub костыль()
    Cells(1).Resize(60, 60) = 1
    ySize = ActiveSheet.HPageBreaks(1).Location.Top - Cells(1).Top
    xSize = ActiveSheet.VPageBreaks(1).Location.Left - Cells(1).Left
    ActiveSheet.UsedRange.Clear
    Debug.Print "ySize   " & ySize
    Debug.Print "xSize   " & xSize
End Sub

Sub ClearPageSize()
    ActiveSheet.PageSetup.PrintArea = "A1:AA500"
    ySize = ActiveSheet.HPageBreaks(1).Location.Top - Cells(1).Top
    xSize = ActiveSheet.VPageBreaks(1).Location.Left - Cells(1).Left
    Debug.Print "ySize   " & ySize
    Debug.Print "xSize   " & xSize
    ActiveSheet.PageSetup.PrintArea = ""
End Sub

Sub test()
    [a1:b2] = Array(1, 2)
    a = "2"
    Debug.Print fTest(a)
    a = Array(1, 2)
    Debug.Print fTest(a)
    a = [a1:b2].Value
    Debug.Print fTest(a)
    a = [a1:b2]
    Debug.Print fTest(a)
End Sub
Function fTest(ParamArray args())
    fTest = UBound(args)
    ' в какой ситуации этот цикл нужен?
    For Each arg In args
    Next
End Function

            For j = 1 To 4
               arrD(j) = CStr(Round(Val(arrD(j)), 2))
            Next
            arrD(6) = CStr(Round(Val(arrD(6)), 0))

 For i = LBound(arrL) To UBound(arrL)
                If Len(arrL(i)) > 0 Then
                    arrD = Split(arrL(i), ",")
                    If Not IsNull(arrD(6)) Then
                        arrD(0) = Right(arrD(0), 2) & "." & Mid(arrD(0), 5, 2) & "." & Left(arrD(0), 4)
                        For j = 1 To 4
                            arrD(j) = CStr(Round(Val(arrD(j)), 2))
                        Next
                        arrD(6) = CStr(Round(Val(arrD(6)), 0))
                        cOut = cOut & vbCrLf & Join(Array(arrD(0), arrD(1), arrD(2), arrD(3), arrD(4), arrD(6)), vbTab)
                    End If
                End If
            Next

Sub Макрос()
    ThisWorkbook.FollowHyperlink Address:=ThisWorkbook.FullName, SubAddress:="Лист2!K25"
End Sub

Sub J_F()
    Dim r As Range, ar, ar1(1 To 1, 1 To 280), ar2    '(1 To 1, 1 To 280)
    Dim t!, tt!
    Set r = Range("A1:JT1000")
    t = Timer
    ar = r.Value
    For i = 1 To 280
        ar1(1, i) = ar(1, i)
    Next
    Debug.Print "t   =" & Format(Timer - t, "0.0000000000")
    tt = Timer
    ar2 = Application.Index(ar, 1, 0)    '.Value
    Debug.Print "tt   =" & Format(Timer - t, "0.0000000000")
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$12" Or Target.Address = "$C$13" Then
        Me.DrawingObjects.Visible = False
        Select Case Range("$C12") & Range("$C13")
        Case "1011"
            Me.Shapes("Рисунок 1").Visible = True
        Case "1012"
            Me.Shapes("Рисунок 2").Visible = True
        End Select
    End If
End Sub