Nur Werte übernehmen

Sub autoautoC()
Application.ScreenUpdating = False
Dim strBreich As String
Dim rngZelle As Range
Sheets("Mai_C").Select
strBreich = "$A$1:" & ActiveSheet.Cells(Rows.Count, "A"). _
End(xlUp).Address
For Each rngZelle In ActiveSheet.Range(strBreich)
If rngZelle.Value >= "1" Then
ActiveSheet.Range("A" & rngZelle.Row & ":" _
& "P" & rngZelle.Row).Copy _
Destination:=Sheets("coach").Cells(Rows.Count, 1). _
End(xlUp).Offset(1, 0)
End If
Next
End Sub