excel inhoud 2 verschillende cellen copieren indien cel leeg is

[zoro007]

In een werkblad zijn 6 kolommen.
Indien op deze rij kolom 2 leeg is moet hij de waarde van de vorige rij van kolom 2 op deze rij in kolom 2 copieren en ook de waarde van kolom 6 van de vorige rij in kolom 6 copieren.
Wat ik nu heb is dat hij dit doet voor de tweede kolom , maar hoe moet hij dan ook nog de zesde copieren ?
code tot nu :

Range("B1").Select
'nu springen we door naar de laatste cel
ActiveCell.SpecialCells(xlLastCell).Select

Dim rij As Integer
rij = ActiveCell.Row

'terug naar het begin
Range("B1").Select
For i = 0 To rij - 1
    If ActiveCell.Value = "" Then
        ActiveCell.Formula = ActiveCell.Offset(-1, 0).Value
        ActiveCell.Offset(1, 0).Select
    Else
        ActiveCell.Offset(1, 0).Select
    End If
Next i

 

[OctaFish]

Je macro maakt gebruik van teveel Select opdrachten, en dat is a) nergens voor nodig en is b) behoorlijk vertragend. Probeer dit eens:

Dim rij As Integer
Dim rng As Range, tbl As Range
    
    Set tbl = ActiveCell.CurrentRegion
    rij = tbl.Rows.Count
    Set rng = ActiveSheet.Range("B2")
    For i = 0 To rij - 1
        With rng
            If .Offset(i, 0).Value = "" Then
                .Offset(i, 0).Value = .Offset(i - 1, 0).Value
                .Offset(i, 4).Value = .Offset(i - 1, 4).Value
            End If
        End With
    Next i