求大神指导，我想怎么实现填写右边的数据，左边列自动更新。

Sub test()
Dim lastRng As Range
Set lastRng = Cells(Rows.Count, 1).End(3).Offset(1)
lastRng.Resize(, 6).Value = Application.Transpose(Range("i2:i7").Value)
Range("i2:i7").ClearContents
End Sub

Sub 输入到指定行()
Dim lastRng As Range
If Range("i2") = "" Then
Exit Sub
End If
If Range("a2") <> "" Then
Range("A2:G2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Set lastRng = Cells(2, 1)
lastRng.Resize(, 6).Value = Application.Transpose(Range("i2:i7").Value)
Range("i2:i7").ClearContents
End Sub