Можно ли в Эксель вставлять данные без замены уже существующих?

[IgorGO]

откройте новую книгу
выполните этот

Sub Union2ListsAt3()
  Dim sh As Long, r As Long, c As Long
  Randomize
  If Sheets.Count < 2 Then Sheets(1).Copy After:=Sheets(Sheets.Count)
  For sh = 1 To 2
    Sheets(sh).Cells.ClearContents
    For r = 1 To Int(20 + Rnd() * 10)
      For c = 1 To Int(10 + Rnd() * 5)
        If Rnd() < 0.24 * sh Then Sheets(sh).Cells(r, c) = sh
      Next
    Next
  Next
  Sheets(1).Copy After:=Sheets(Sheets.Count)
  Sheets(2).UsedRange.Copy
  Sheets(Sheets.Count).Cells(1).PasteSpecial SkipBlanks:=True
  Application.CutCopyMode = False
End Sub

скурпулёзно изучайте содержимое 1, 2 и последнего листов.

[TemaZosin]

Сообщение от IgorGO

откройте новую книгу
выполните этот

Sub Union2ListsAt3()
  Dim sh As Long, r As Long, c As Long
  Randomize
  If Sheets.Count < 2 Then Sheets(1).Copy After:=Sheets(Sheets.Count)
  For sh = 1 To 2
    Sheets(sh).Cells.ClearContents
    For r = 1 To Int(20 + Rnd() * 10)
      For c = 1 To Int(10 + Rnd() * 5)
        If Rnd() < 0.24 * sh Then Sheets(sh).Cells(r, c) = sh
      Next
    Next
  Next
  Sheets(1).Copy After:=Sheets(Sheets.Count)
  Sheets(2).UsedRange.Copy
  Sheets(Sheets.Count).Cells(1).PasteSpecial SkipBlanks:=True
  Application.CutCopyMode = False
End Sub

скурпулёзно изучайте содержимое 1, 2 и последнего листов.

Спасибо. Круто! Правда третий лист пустой. Но "сумму" 1 и 2 на 4 я увидел.
Правда вставляя в 1 и 2 свои таблицы у меня все равно скрипт заменяет на рэндом. Я думал он "сложит" и мои значения.

[IgorGO]

данные "складываются" на последний лист, а не на третий...

вот это копирует 1-й лист на последний, а потом накладывает поверх данных с первого листа данные второго.

  Sheets(1).Copy After:=Sheets(Sheets.Count)
  Sheets(2).UsedRange.Copy
  Sheets(Sheets.Count).Cells(1).PasteSpecial SkipBlanks:=True

а чтобы выполнить Вашу задачу, описанную в первом сообщении, достаточно внимательное прочитать рекомендации Казанского
или выполнить макрос из двух строк:

  Sheets(2).UsedRange.Copy
  Sheets(1).Cells(1).PasteSpecial SkipBlanks:=True