tabel kopieren in range

[otmar]

met onderstaande macro probeer ik een tabel te kopieren in een bepaalde range.

het resultaat van onderstaande macro is echter dat de hele rij wordt gekopieerd. en ik zoek naar de code dat de tabel selecteert.

wie kan mij verder helpen. zie bijlage en klik op A10.

Dim c As Range, i As Long, DataRng As Range
    
        Set c = Range("A15")
        c.Offset(0).Resize(c.CurrentRegion.Rows.Count + 0).EntireRow.Copy

Bekijk bijlage voorbeeld.zip

 

[HSV]

 If Target.Range.Address = "$A$10" Then
       Range("A15").CurrentRegion.Copy
    End If

 

[otmar]

 If Target.Range.Address = "$A$10" Then
       Range("A15").CurrentRegion.Copy
    End If

bedankt! dit is wat ik zocht.