Вставить в первую доступную ячейку

Question

Я пытаюсь создать код, который позволяет мне вставлять выбранный диапазон данных и вставлять его в Book2 в первую пустую ячейку в столбце A, начиная с A1. Это то, что я получил до сих пор:.

Sub Macro 1()   
     Range(Selection, Selection.End(xlToRight)).Select 
     Range(Selection, Selection.End(xlDown)).Select    
     Selection.Copy 

     Windows("Book2.xlsm").Activate 
     **CurrentRow = Range("A1").End(xlDown).Offset(1, 0).Row** 
     ActiveSheet.Paste 
    End Sub 

Я считаю, что проблема является линией со звездочками (**) Может кто-то помочь мне переписать эту строку/код, скопированные данные можно вставить в первом доступная ячейка от A1 вниз? (Up не будет работать, так как я заполнил ячейки дальше по диаграмме). . Сейчас код вставки данных в любой выделена ячейка :(

Спасибо за вашу помощь всем

Answer 1

Попробуйте это:

Dim book2 As Excel.Window 
    Range(Selection, Selection.End(xlToRight)).Select 
    Range(Selection, Selection.End(xlDown)).Select 
    Selection.Copy 

    Workbooks("Book2").Activate 
    Range("A1").Select 
    Selection.End(xlDown).Select 
    ActiveCell.Offset(1, 0).Range("A1").Select 
    ActiveSheet.Paste 

Answer 2

Вы могли бы работать более непосредственно с диапазонами (без Select), как показано ниже:.

Sub Better() 

Dim Wb As Workbook 
Dim rng1 As Range 
Dim rng2 As Range 

Set rng1 = Range(ActiveCell, ActiveCell.End(xlToRight)) 
Set rng1 = Range(rng1, rng1.End(xlDown)) 

On Error Resume Next 
Set Wb = Workbooks("book2.xlsm") 
On Error GoTo 0 

If Wb Is Nothing Then Exit Sub 

Set rng2 = Wb.Sheets(1).Columns(1).Find("*", Wb.Sheets(1).[a1], , , xlByRows, xlPrevious) 
If rng2 Is Nothing Then Set rng2 = Wb.Sheets(1).[a1] 
rng1.Copy rng2.Offset(1, 0) 

End Sub