Fiquei confuso com sua planilha, mas veja se auxilia

Private Sub cmdfiltrar_Click()

Dim datai As Date 'Data inicial informada no formulário
Dim dataf As Date 'Data final informada no formulário
Dim soma As Long, PesoE As Double, PesoS As Double
Dim Tipo As String

datai = lbldatai
dataf = lbldataf

If op_land = True Then

    Tipo = "LAND"
ElseIf op_metalmar = True Then
    Tipo = "METALMAR"
ElseIf op_terceiros = True Then
    Tipo = "CLIENTE"
Else
    Tipo = "*"
End If


With Sheets("PERFIS_Estoque")
For x = 8 To Cells(Cells.Rows.Count, "A").End(xlUp).Row
    If .Cells(x, "I") >= datai And .Cells(x, "I") <= dataf And .Cells(x, "F") Like Tipo Then
        PesoE = PesoE + .Cells(x, "E")
    End If
    If .Cells(x, "X") >= datai And .Cells(x, "X") <= dataf And .Cells(x, "U") Like Tipo Then
        PesoS = PesoS + .Cells(x, "T")
    End If
Next
End With

txtentrou.Text = PesoE
txtsaiu.Text = PesoS
txtsaldo.Text = txtentrou - txtsaiu
txtentrou.Text = Format(txtentrou, "#,##0.00")
txtsaiu.Text = Format(txtsaiu, "#,##0.00")
txtsaldo.Text = Format(txtsaldo, "#,##0.00")

End Sub

Tchê... Muito obrigado pelo teu tempo reservado para me ajudar.

Abraço.