Copy & Paste Columns to Specific Range while Removing Blanks & Duplicates

Hi dondada82

In future please view the forum rules before posting. Your post does not comply with rule #3.

3. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the [#] button at the top of the post window.

Try this: Not tested.

Option Explicit
Sub Marco1()
Dim i As Integer
Dim nextRow As Long
nextRow = Sheet2.Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 2 To 100
   If Sheet1.Cells(i, 19).Value <> "" Then
      Sheet1.Cells(i, 19).EntireRow.Copy Destination:=Sheet2.Range("AZ95" & nextRow)
      nextRow = nextRow + 1
   End If
Next i
End Sub