hi Frank,

you might format another sheet and then transfer only your data values,
exemple:
Sheets("2").Range("A1:A5000").Value = Sheets("1").Range("C1:C5000").Value
Sheets("2").Range("B1:B5000").Value = Sheets("1").Range("F1:F5000").Value

isabelle