01
02
03
04
05
06
07
08
09
10
11 |
|
Sub Test()
Dim iZlB As Long, iZlG As Long
With ActiveSheet ' Thsiworkbook.Sheets("blabla")
iZlG = .Cells(.Rows.Count, "G").End(xlUp).Row
iZlB = .Cells(.Rows.Count, "B").End(xlUp).Row
If iZlG > iZlB Then
.Cells(iZlB + 1, "B").Resize(iZlG - iZlB, 1).Value = .Cells(iZlB, "B").Value
End If
End With
End Sub
|