Greetings! I browsed around in Google, and saw a possible solution. Perhaps
something like

Range("R1:R28").EntireRow.Delete Shift:=xlUp might work. This statement does
compile without error. I will try to execute it later on today.

--
May you have a most blessed day!

Sincerely,

Michael Fitzpatrick


"Per Jessen" wrote:

Hi Michael

It seems that


Application.Goto Reference:="R1:R28"

is selecting entire rows 1:28 not only column R row 1:28, thus merged
cells is selected and will be deleted at once.

Selection.Delete Shift:=xlUp

But when I revised the code as follows (hoping for greater speed):

Range("R1:R28").Delete Shift:=xlUp

The code above is only deleting the stated range, thus cells in the
range merged with cells in other columns will cause the error!

Hopes that helps

Regards,
Per