Excel VBA Скопируйте несколько листов на один лист, не работая

Question

У меня есть следующий vba: Данные все текст, строки A-J с заголовками столбцов на каждом листе одинаковы Данные - это sql-запросы, все с «топ-1000» 4 листов (sheet1, sheet2, sheet3, Master)

лист 1: 100 строк лист 2: 34 строк лист 3: 900 строк Мастер: объединены данные из 3 листов

ПРОБЛЕМА: Sheet3 только копии 84 Строки специальные y однако добавление большего количества строк в другие листы будет скопировано на Master. Только sheet3 не скопирует более 84 строк.

'Шаг 1: Clear мастер перед обновлением ' Шаг 2: Петля через региональные листы

Sub Объединить()

Dim cell   As Range 
Dim wks    As Worksheet 

Sheets("Master").Range("A2:Z65536").ClearContents 

For Each wks In ThisWorkbook.Worksheets 
    If wks.Name <> "Master" And wks.Range("A2") <> "" Then 

     For Each cell In wks.Range(wks.Range("A2"), wks.Range("A2").End(xlDown)) 
      cell.EntireRow.Copy Destination:=Worksheets("Master").Range("A65536").End(xlUp).Offset(1, 0) 
     Next cell 
    End If 
Next wks 

End Sub

Благодаря

Answer 1

ли данные, начинающиеся с Range(A2), всегда заселены?

Для каждой ячейки В wks.Range(wks.Range("A2"), wks.Range("A2").End(xlDown)) начнется с A2 и перейдите к последней заполненной ячейке перед пустой/пустой ячейкой.