Sub test() If Sheet2.Range("B1:B2").Item(1).MergeCells = False Then Sheet2.Range("B1:B2").Item(1).Value(xlRangeValueXMLSpreadsheet) = Sheet2.Range("B1:B2").Item(1).Value(xlRangeValueXMLSpreadsheet) End If Sheet1.Range("A1:A2").Value(xlRangeValueXMLSpreadsheet) = Sheet2.Range("B1:B2").Value(xlRangeValueXMLSpreadsheet) End Sub