VBA Excel粘贴到最后一个空单元格

Question

Here is my code it works fine for pulling data in. But I need more to pull in more data from another sheet to go in the last empty cell so I have all the data together.

Can I use the same code and change the name and just target the Paste to the last empty row?

Sub Run1()

  Set wsInfoFrom = Worksheets("StowToPrimeWest")
  Set wsInfoTo = Worksheets("View")

  lastrow = wsInfoTo.Range("A" & wsInfoTo.Rows.Count).End(xlUp).Row

  wsInfoTo.Range("A1:A" & lastrow).ClearContents

  lastrow = wsInfoFrom.Range("A" & wsInfoFrom.Rows.Count).End(xlUp).Row

  Set copyRange = wsInfoFrom.Range("A1:A" & lastrow) 

  copyRange.SpecialCells(xlCellTypeVisible).Copy wsInfoTo.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

  Worksheets("View").Activate

End Sub

Answer 1

You can just clone that code and it will do what you want to do except for this line:

wsInfoTo.Range("A1:A" & lastrow).ClearContents

which clears out everything from column A in the "View" sheet, so you should only do that once.