Boa tarde à todos,

Tenho a seguinte dúvida,

Nesse trecho do programa eu quero abrir qualquer arquivo de excel e copiar a celula "b51" para a linha 36 de uma "planilha mestre" porém fica dando erro, ele não consegue enxergar o valor descrito nesse celula "b51". Alguém poderia me dar uma dica?

ActiveSheet.Range("b51").UnMerge
ActiveSheet.Range("b51").Font.Bold = False
ActiveSheet.Range("b51").Font.Size = 10
ActiveSheet.Range("b51").Font.Name = "Arial"
ActiveSheet.Range("b51").HorizontalAlignment = xlCenter
ActiveSheet.Range("b51").VerticalAlignment = xlCenter
ActiveSheet.Range("b51").Borders(xlEdgeLeft).LineStyle = xlContinuous
ActiveSheet.Range("b51").Borders(xlEdgeLeft).Weight = xlThin
ActiveSheet.Range("b51").Borders(xlEdgeRight).LineStyle = xlContinuous
ActiveSheet.Range("b51").Borders(xlEdgeRight).Weight = xlThin
ActiveSheet.Range("b51").Borders(xlEdgeTop).LineStyle = xlContinuous
ActiveSheet.Range("b51").Borders(xlEdgeTop).Weight = xlThin
ActiveSheet.Range("b51").Borders(xlEdgeBottom).LineStyle = xlContinuous
ActiveSheet.Range("b51").Borders(xlEdgeBottom).Weight = xlThin
ActiveSheet.Range("b51").Select
ActiveSheet.Range("b51").Copy
Selection.Copy Destination:=W.Cells(W.Rows.Count, 36).End(xlUp).Offset(1, 0) 'copiar os dados para o destino
Selection.PasteSpecial Paste:=xlPasteValues