rijen tellen, invoegen en kopieren

[arjancuijpers]

Beste,

Ik geloof dat het niet zo last is maar ik kom er zelf niet aan uit.
Deze code werkt prima echter ben ik mijn worksheet aan het wijzigen.
Momenteel zoekt hij in kolom V hoeveel rijen gevuld zijn, voegt na cell A8 het aantal getelde rijen in en kopieert de gegevens.

Nu is dus de vraag. ik heb de gegevens nu niet meer in rij V staan maar in kolom A vanaf rij 40.
Hoe krijg ik nu die offset van de rijen in mijn code gefixt.

Met vriendelijke groet,

Arjan

Sub gegevens_overnemen()


    
Application.ScreenUpdating = False
With ActiveSheet
lr = .Range("V" & Rows.Count).End(xlUp).Row
n = .Range("V:V").Cells.SpecialCells(xlCellTypeConstants).Count
ReDim test(n)
a = 0
For x = 1 To lr
    If .Range("V" & x) <> vbNullString Then
        test(a) = .Range("V" & x).Value
        a = a + 1
    End If
Next
End With
With ActiveSheet
    .Range("A8", "T" & n + 7).Insert shift:=xlDown
    For x = 0 To n - 1
        .Range("A" & x + 8).Value = test(x)
    Next
    .Range("B7", "U" & n + 7).Select
    Selection.FillDown
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
End With
Application.Goto reference:=ActiveSheet.Range("B8"), Scroll:=False
Application.ScreenUpdating = True
End Sub