允许以特定方式移动单元格的宏

Question

请帮我一个宏，让我以特定的方式移动细胞。 现在我有一个代码，只需将我的范围移动到1个单元格：

Sub ShiftCellRight()
Dim rng As Range
Set rng = Range("F7:K10")
rng.Cut Destination:=rng.Offset(0, 1)
End Sub

我想要获得的内容：自动调整大小并在偏移后更改范围 - 清除所有超出初始范围的数据，为没有内容的单元格添加零。

谢谢！