VBA to merge cell

[shiva_reshs]

Hello,

I am triyng to merge last cell with value in A column. Merge should happen till E. It is just Last cell merge

Dim lrow As Long 
With x.Sheets("WEEK 1")
lrow = .Range("A" & .Rows.Count).End(xlUp).Row
.Range("A" & lrow - 1, "M" & lrow).Copy
With y.Sheets("WEEK 1")
Range("A" & Rows.Count).End(xlUp).Offset(2).PasteSpecial xlPasteAll
Range("A" & Rows.Count).End(xlUp).Value = "Wk2"
Range("A" & Rows.Count).End(xlUp).Offset(2).Value = "Wk1 + Wk2"

[COLOR=#ff0000]Range("A" & Rows.Count).End(xlUp).Offset(0, 5).Merge[/COLOR]

Something not working well on it on red line.

 

[wideboydixon]

Range("A" & Rows.Count).End(xlUp).Resize(1, 5).Merge

WBD

 

[shiva_reshs]

Thanks