将一行剪切并粘贴到后续行中

Question

我有数据，需要将数据行附加到后续数据行中。我拥有的数据行需要在A列中包含单元格的行，其中字符数等于9。有关代码，请参见下文：

Sub cut_paste()

Dim nr As Integer
For nr = 1 To 195

If Len(Range("A" & nr)) = 9 Then

Range("A" & nr).Select
Selection.Cut
Range("N" & nr).Select
ActiveSheet.Paste
Range("B" & nr).Select
Selection.Cut

Range("O" & nr).Select
ActiveSheet.Paste

Next nr

End Sub

这是我的数据：

Name    type    location    store   Unit    Qty Cur Over Qty    Unit    Number  Cur Net Cur Material    Desc    Store   Store Name  XYZ
123456789   credit card wc76    walmart                                                     
981276WYETD 2   wc76    8   qw  45  JPY 12  qw  90  JPY                         
981276WYETD 2   wc76    8   qw  45  JPY 12  qw  90  JPY                         
981276WYETD 2   wc76    8   qw  45  JPY 12  qw  90  JPY                         
981276WYETD 2   wc76    8   qw  45  JPY 12  qw  90  JPY                         
981276WYETD 2   wc76    8   qw  45  JPY 12  qw  90  JPY                         

123456789   credit card wc76    walmart                                                     
981276WYETD 2   wc76    8   qw  45  JPY 12  qw  90  JPY                         

123456789   credit card wc76    walmart                                                     
981276WYETD 2   wc76    8   qw  45  JPY 12  qw  90  JPY                         

123456789   credit card wc76    walmart                                                     
981276WYETD 2   wc76    8   qw  45  JPY 12  qw  90  JPY                         
981276WYETD 2   wc76    8   qw  45  JPY 12  qw  90  JPY

我需要将单元格A2复制到单元格N2，将单元格B2复制到O2，并保持复制直到到达空白行，然后从下一个具有9个字符的A列单元格开始。