ThisWorkbook.Worksheets("Sheet1").Range("A9:A" & Cells.Count).Copy ThisWorkbook.Worksheets("Sheet2").Range("A9")
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)