copier plage de cellule sur une autre feuille

bonjour
j'ai un probleme sur une macro
je cherche a copier la plage A4:H4 de la feuille "bd"jusqu’à la dernière ligne remplie
et la copier en valeur sur la feuille "Reporting concordance"a la premiere celulle vide de la colonne B

pour le moment j'ai ce code mais mais ce ne fonctionne pas il doit y avoir un problème quelque part
Dim n As Long
Sheets("bd").Select
Dim DerniereLigne As Integer
DerniereLigne = Range("A65536").End(xlUp).Row
Range("A3:A" & DerniereLigne).Copy
Selection.Copy
With Sheets("Reporting concordance")
n = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
If n < 7 Then n = 7
.Cells(n, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



End With
End Sub


la macro me copie que la ligne 4
merci Cindy