Pastespecial probleem

[goof010]

Goeie morgen allemaal,
Het volgende is er aan de hand:
Ik heb moeite met de juiste parameters voor pastespecial functie. Ik wil de volgende code omzetten en gebruik maken van pastespecial want zo als het nu werkt copieert hij de formules i.p.v. de waardes. Ik heb geprobeerd eerst te selecteren en dan te plakken maar dat wil niet zo werken. Kan een van jullie mij aub helpen?

For i = 4 To 775
If Range("A" & i) & Range("B" & i) & Range("C" & i).Value <> "" Then

If Range("A" & i) & Range("B" & i) & Range("C" & i).Value >= 1 Then

Rows(i).Copy Range("Sheet1!A" & Range("Sheet1!A2").CurrentRegion.Rows.Count + 1)

End If
End If

Alvast bedankt!
M.v.g Govert

 

[snb]

For i = 4 To 775
  If Range("A" & i) & Range("B" & i) & Range("C" & i).Value <> "" Then
    If Range("A" & i) & Range("B" & i) & Range("C" & i).Value >= 1 Then
    Rows(i).Copy 
    Range("Sheet1!A" & Range("Sheet1!A2").CurrentRegion.Rows.Count + 1).pastespecial xlvalues
    End If
  End If
Next

 

[goof010]

Mijn dank is wederom groot!
Dat ik hier zelf niet op kon komen...

m.v.g. Govert