Boa tarde

procurei por aqui já, mas como faz tempo que desenvolvi a tabela e estudei apenas para desenvolvê-la, estou às voltas com um erro e não consegui resolvê-lo lendo apenas os tutoriais

a macro abaixo copia linhas determinadas para um orçamento, porém, está dando erro:

Sub CopiarParaOrçamento2()
    Dim i, UltimaLinhaHLdistribuidores, UltimaLinhaOrçamento As Integer
    
    [b]UltimaLinhaHLdistribuidores = Sheets("Tabela HL Distribuidores").Cells(Cells.Rows.Count, 1).End(xlUp).Row[/b]
    UltimaLinhaOrçamento = Sheets("Orçamento").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
    
    If UltimaLinhaOrçamento < 13 Then UltimaLinhaOrçamento = 13
    If UltimaLinhaHLdistribuidores < 22 Then UltimaLinhaHLdistribuidores = 22
    
    Application.ScreenUpdating = False
       
    Sheets("Orçamento").Select
    Range("A13:H24").Select
    Selection.ClearContents
    Range("A13").Select
    
    Sheets("Tabela HL Distribuidores").Select
 
    UltimaLinhaOrçamento = 13
    For i = 22 To UltimaLinhaHLdistribuidores
        If Range("E" & i).Value <> "" Then
            Sheets("Orçamento").Range("A" & UltimaLinhaOrçamento).Value = Sheets("Tabela HL Distribuidores").Range("A" & i).Value
            Sheets("Orçamento").Range("B" & UltimaLinhaOrçamento).Value = Sheets("Tabela HL Distribuidores").Range("D" & i).Value
            Sheets("Orçamento").Range("C" & UltimaLinhaOrçamento).Value = Sheets("Tabela HL Distribuidores").Range("B" & i).Value
            Sheets("Orçamento").Range("D" & UltimaLinhaOrçamento).Value = Sheets("Tabela HL Distribuidores").Range("F" & i).Value
            Sheets("Orçamento").Range("E" & UltimaLinhaOrçamento).Value = Sheets("Tabela HL Distribuidores").Range("E" & i).Value
            Sheets("Orçamento").Range("F" & UltimaLinhaOrçamento).Value = Sheets("Tabela HL Distribuidores").Range("G" & i).Value
            Sheets("Orçamento").Range("G" & UltimaLinhaOrçamento).Value = Sheets("Tabela HL Distribuidores").Range("I" & i).Value
            Sheets("Orçamento").Range("H" & UltimaLinhaOrçamento).Value = Sheets("Tabela HL Distribuidores").Range("J" & i).Value
            Sheets("Orçamento").Range("I" & UltimaLinhaOrçamento).Value = Sheets("Tabela HL Distribuidores").Range("L" & i).Value
       
        Else
            GoTo QtdeEmBranco
        End If
        UltimaLinhaOrçamento = UltimaLinhaOrçamento + 1
QtdeEmBranco:
        
    Next
    
    Application.ScreenUpdating = True
    
       
       End Sub

a linha em negrito é onde está ocorrendo o erro.Alguém pode me auxiliar ou explicar?

desde já obrigado.