All working fine now so thanks for the input.

Working code to copy the value of columns C to K onto cell A1 of the newly created workbook is as follows;

Code:
                rng.Columns("C:K").SpecialCells(xlCellTypeVisible).Copy
                shtDest.Range("A1").PasteSpecial xlPasteValues