Excell VBA Script

Het volgende Excel vba script heb ik in een document gezet en werkt goed op één ding na:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim R As Range, lastrow As Long
Set R = Sheet1.Range("E8:E1000")

lastrow = Sheets("COMPLETED").Cells(Cells.Rows.Count, "B").End(xlUp).Row + 1

For Each cell In R
If cell.Text = "100%" Then
cell.EntireRow.Copy Destination:=Sheets("COMPLETED").Range("A" & lastrow)
cell.EntireRow.ClearContents
End If
Next cell
End Sub

bij de volgende regel wordt de complete regel gekopieerd naar de sheet Completed:

cell.EntireRow.Copy Destination:=Sheets("COMPLETED").Range("A" & lastrow)

Het is alleen de bedoeling dat het eerste gedeelte wordt gekopieerd dus alleen kolom A t/m G van de betreffende regel.
Het lukt mij niet om dit voor elkaar te krijgen, is er iemand met een idee hoe dit te realiseren

Misschien Zo?

Bedankt Albert,

Het werkt precies zo als de bedoeling is.

Met vriendelijke groet,
Klaas

Wil je de vraag dan als opgelost markeren?:thumb: