How could copy cell contents in merged cell to another merged cell

[Mussala]

I have cell contents in merged cell in F7:K9 in SH1 sheet . I would copy to OUT sheet in F7:K9 without cancel merging cells.
thanks

 

[kvsrinivasamurthy]

F7:K9 is a single merged cell? If Not Show Data and result In Images or XL2BB.

 

[Mussala]

F7:K9 is a single merged cell?

yes

 

[MARK858]

Maybe...

Sheets("OUT").Range("F7").Value = Sheets("SH1").Range("F7").Value

 

[Mussala]

thanks mark
this cancels merged cell and put in one cell!
it will just copy in F7 , should be F7:K9 as the original in SH1 sheet.

 

[MARK858]

this cancels merged cell and put in one cell!

Doesn't demerge it for me and the data in a merged cell is only in the top left cell.
Did you actually run the code?

 

[Mussala]

Did you actually run the code?

yes I did it.

 

[MARK858]

For me I get the results below, with the code below (Sheet names are in the bottom lreft corner of the XL2BB screenshots)

Or are you saying F7:K9 isn't merged on sheet "OUT"?

Sub xxxx()
Sheets("OUT").Range("F7").Value = Sheets("SH1").Range("F7").Value
End Sub

Before the code

Book1
	E	F	G	H	I	J	K	L
5
6
7		Thiis is a merged cell
8
9
10
11
12
SH1

Book1
	E	F	G	H	I	J	K	L
5
6
7
8
9
10
11
12
OUT

After the code runs, result on sheet "OUT"

Book1
	E	F	G	H	I	J	K	L
5
6
7		Thiis is a merged cell
8
9
10
11
12
OUT

 

[MARK858]

Or are you saying F7:K9 isn't merged on sheet "OUT"?

If the above is true then try either...

Sub yyyy()
Sheets("SH1").Range("F7:K9").Copy Sheets("OUT").Range("F7")
End Sub

or

Sub zzz()
Sheets("SH1").Range("F7").MergeArea.Copy Sheets("OUT").Range("F7")
End Sub

 

[Mussala]

QWER
	A	B	C	D	E	F	G	H	I	J	K	L
1
2
3
4
5
6
7						this is a merged cell
8
9
10
11
12
13
14
SH1

QWER
	A	B	C	D	E	F	G	H	I	J	K
1
2
3
4
5
6
7						this is a merged cell
8
9
10
11
12
13
out