Boa tarde.

Sou nova por aqui e minha macro está dando erro nessa parte em negrito, alguem sabe o que é?

Call Concatenos

Application.StatusBar = "Salvando BD..."
Workbooks("BD_Intrahora.xlsx").Save

JumpCMS:

ThisWorkbook.Activate

If Ck_Intraday = False Then GoTo JumpIntraday

Lin = ThisWorkbook.Sheets("BD").Cells(1, 1).Value - 1
Call Prepara_Chaves

'Calculando

Range("D2").Select

Do While ActiveCell.Value <> DataIn2

ActiveCell.Offset(1, 0).Select

Loop

z = ActiveCell.Row

Do While ActiveCell.Value <> DataFim

ActiveCell.Offset(1, 0).Select

Loop

Do While ActiveCell.Value <> DataFim + 1

[b]ActiveCell.Offset(1, 0).Select[/b]

Loop

z2 = ActiveCell.Row

    Call Consolida_Dados

Range("F" & z & ":BM" & z).Copy

Range("F" & z & ":BM" & z2 - 1).PasteSpecial xlPasteFormulasAndNumberFormats

Application.Calculation = xlCalculationAutomatic

Range("F" & z & ":BM" & z2 - 1).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Application.StatusBar = Empty

JumpIntraday:

Application.DisplayAlerts = True
Workbooks("BD_Intrahora.xlsx").Close False

Sheets("Config").Select
Cells(2, 3).Select

MsgBox "Tempo de atualização - " & Format(Now - HoraIn, "hh:mm:ss"), vbInformation

End Sub