I still have problems with this thread.
When I run the macro, he puts the value in Sheet1 and I want it in Sheet2.
Also he doesn't take the first free cell in Sheet2.

Please help

This doesn't work
He gives the error that the merged cells has to have the same size. Error on line 6

Dim LastRow As Integer
Range("B15").Select
Selection.Copy
ActiveSheet.Next.Select
LastRow = Range("A65536").End(xlUp).Row
Range("A" & (LastRow + 1)).PasteSpecial (xlPasteValues)
Sheets("Sheet1").Select