Boa tarde!
O código abaixo esta dando erro 1004 na linha em destaque quando clico no botão transferir, podem me dar uma ajuda?
Sub Transfere()
'
' Transfere Macro
'
'
Range("B5").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Base_Dados").Select Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Sheets("Digitação").Select
Range("E8:F8").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("H8").Select
Selection.ClearContents
Range("M8").Select
Selection.ClearContents
Range("B8:C8").Select
End Sub