Hi,
i have the following code which works fine
(Copies column A and F to Workbook 2: Column A and B without blanks)
Sub CopyTest()
Dim WB1 As Workbook, WB2 As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet
Dim Rng As Range, r As Range, rSel As Range
lastrow = Cells(Rows.Count...