Как выбрать все непустые ячейки и вставить в таблицу, не переопределяя существующие значения

Question

Следующий код ссылается только на строку 3, и мне нужно захватить все непустые ячейки в столбце A и поместить значения в таблице на другой лист без переопределения существующих значений.Я пытался манипулировать кодом без удачи.

Спасибо

Sub Add_My_Data()
Application.ScreenUpdating = False
Dim i As Long
Dim lastrow As Long
Dim strTitle As String
lastrow = Sheets("TableData").Cells(Rows.Count, "A").End(xlUp).Row + 1
strTitle = Sheets("NewOrder").Cells(3, 1).Value
With Sheets("TableData")
    .Cells(lastrow, 1).Value = strTitle
End With
Application.ScreenUpdating = True
End Sub

Answer 1

Если значения в NewOrder не являются формулами, этой однострочной строки должно быть достаточно.

With Sheets("NewOrder")
    .Range("A3", .Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeConstants).Copy _
                                        Sheets("TableData").Cells(lastrow, 1)
end with