This is what I have so far but needs to paste special in the values and numbers format.


Range("3:7").Copy Range("A" & Rows.Count).End(xlUp).Offset(1)