Paste this in to the ok event, it worked for me in a seperate module so
in the OK event you could call it from a seperate module i.e Call
Test

Hope this helps,
Simon

Sub Test()
Dim rng1 As Range
Dim rng As Range
Set rng = Range("B14:N33")
rng.Copy
Sheets("Data").Select
Set rng1 = Worksheets("Data").Cells(Rows.Count, 1).End(xlUp)(2)
rng1.Select
ActiveSheet.Paste
CutCopyMode = False
Worksheets("Sheet1").Select
End Sub


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=566679