Guru do Excel e Power BI

eU QUERO COPIAR INFORMAÇÃO DE UMA PLANILHA PARA OUTRA , EU QUERIA CRIAR A FUNÇÃO DO UNITIL para enquanto o nome da plailha aberta igual a da condição ele copiar as informações dela planilha e colar na outra. sO QUE EU não consigo fazer essa comparação.


Sub DB_consolidar()

Dim lin1, lin2, lin3
Dim arq As String


lin1 = 17


Do Until Sheets("Base ").Cells(lin1, 119).Value = Empty
arq = Sheets("Base ").Cells(lin1, 119).Value
Workbooks.Open (ThisWorkbook.Path & "\BD\" & arq & ".xlsx")

lin2 = 2

Do Until ActiveWorkbook.Name = Workbooks("PRODUTO ESTOQUE ").Name
linha_fim = Range("A2").End(xlDown).Row

Sheets(1).Range("C2:K" & linha_fim).Copy
ThisWorkbook.Sheets(1).Range("C3").PasteSpecial


Loop


ActiveWorkbook.Close
lin1 = lin1 + 1

Loop