Andersonrj,

Boa tarde!

Assim, sem ver o arquivo, rodar e depurar, fica meio difícil fazer suposições...

A priori vi alguns equívocos em seu código e arrumei mas não sei se funciona. Tente assim:

Sheets("Plan3").Select
Range("A1").Select
    Range("B8:AH2461").Select
    ActiveWorkbook.Worksheets("Plan3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Plan3").Sort.SortFields.Add Key:=Range("F8:F1513") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Plan3").Sort
        .SetRange Range("B8:AH1513")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
   
Dim datainicio As Date, datafinal As Date
Dim linha As Integer

datainicio = CDate(txtboxdatainicio.Text)
datafinal = CDate(txtboxdatafinal.Text)
linha = 8
Sheets("Plan3").Select
Do Until CDate(Sheets("Plan3").Cells(linha, 6).Value) <= datafinal
'seleciona célula com o código
IfCDate(Sheets("Plan3").Cells(linha, 6).Value) >= datainicio And CDate(Sheets("Plan3").Cells(linha, 6).Value) <= datafinal Then
Intersect(Selection.EntireRow, Range("A:AH")).Select
    Selection.Copy
Sheets("Plan6").Select
Range("A8").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False


ListBox1.ColumnCount = 34
ListBox1.RowSource = "B:AH"

End If

linha = linha + 1

Loop




Sheets("Plan5").Select

Obrigado amigo com isso conseguir achar o erro.

De nada!

Por favor, vote positivamente clicando na mãozinha existente ao lado da ferramenta CITAR.