Duvidas Codigos

[Marcelo Vieira da Silva]

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
 

[Alyson Ronnan Martins]

Boa tarde @Marcelo Vieira da Silva

Para evitar os erros com o offset eu uso a seleção direta. O seu macro é para selecionar a ultima celula vazio  e colar valores?