Este fórum está sendo desativado

[AlanFlorencio]

Prezados, bom dia!!

Estou com muita dificuldade para executar uma macro, minha grande dificuldade é que não posso subscrever as informações que já estão nela...logo preciso que ela copie os dados e cole valores sempre na linha de baixo em branco.

Vejam abaixo a linguagem, acho que esta fácil...mas não estou conseguindo a macro com o copiar e colar valores esta pronta o problema é que subescreve ao inves de colar na celula de baixo

Sub Copiaratt()
'
' Copiaratt Macro
'

'
Range("F3:G3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("BD").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B:B").Select
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Range("B2").Select
Sheets("Macros").Select
ActiveWindow.ScrollRow = 360
ActiveWindow.ScrollRow = 358
ActiveWindow.ScrollRow = 348
ActiveWindow.ScrollRow = 339
ActiveWindow.ScrollRow = 328
ActiveWindow.ScrollRow = 312
ActiveWindow.ScrollRow = 296
ActiveWindow.ScrollRow = 276
ActiveWindow.ScrollRow = 249
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 1
Range("A3").Select
End Sub

me ajudem por favor!!

[osvaldomp]

Código: Selecionar todos

Sub Copiaratt()
 
 Application.ScreenUpdating = False
 
 Range("F3:G3", Range("F3:G3").End(xlDown)).Copy
 Sheets("BD").Cells(Rows.Count, "A").End(3)(2).PasteSpecial Paste:=xlPasteValues
 
 Sheets("BD").Columns("B:B").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
 TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
 Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
 :=Array(1, 1), TrailingMinusNumbers:=True
 
 Application.ScreenUpdating = True
 
End Sub