Zeilen Kopieren mit zwei Bedingungen

Sub Test1_Paid()
Dim db As Worksheet, Test1 As Worksheet
Dim x As Long, y As Long, lngZeilen As Long
Set db = Worksheets("Rohdaten")
Set Test1 = Worksheets("Test1")
lngZeilen = db.Cells(db.Rows.Count, 2).End(xlUp).Row
x = 2
For y = 1 To lngZeilen
If db.Cells(y, 8).Value Like "Test1" And db.Cells(y, 6).Value Like "PAID" Then
db.Rows(y).Copy Test1.Rows(x)
x = x + 1
End If
Next y
End Sub
Sub Test1_Backpaid()
Dim db As Worksheet, Test1_Testwert As Worksheet
Dim x As Long, y As Long, lngZeilen As Long
Set db = Worksheets("Rohdaten")
Set Test1_Testwert = Worksheets("Test1_Testwert")
lngZeilen = db.Cells(db.Rows.Count, 2).End(xlUp).Row
x = 2
For y = 1 To lngZeilen
If db.Cells(y, 8).Value Like "Test1" And db.Cells(y, 6).Value Like "BACKPAID" Then
db.Rows(y).Copy Test1_Testwert.Rows(x)
x = x + 1
End If
Next y
End Sub
Sub Test1_Refunded()
Dim db As Worksheet, Test1_Testwert As Worksheet
Dim x As Long, y As Long, lngZeilen As Long
Set db = Worksheets("Rohdaten")
Set Test1_Testwert = Worksheets("Test1_Testwert")
lngZeilen = db.Cells(db.Rows.Count, 2).End(xlUp).Row
x = 2
For y = 1 To lngZeilen
If db.Cells(y, 8).Value Like "Test1" And db.Cells(y, 6).Value Like "REFUNDED" Then
db.Rows(y).Copy Test1_Testwert.Rows(x)
x = x + 1
End If
Next y
End Sub
Sub Repayer_Paid()
Dim db As Worksheet, Repayer As Worksheet
Dim x As Long, y As Long, lngZeilen As Long
Set db = Worksheets("Rohdaten")
Set Repayer = Worksheets("Repayer")
lngZeilen = db.Cells(db.Rows.Count, 2).End(xlUp).Row
x = 2
For y = 1 To lngZeilen
If db.Cells(y, 8).Value Like "REPAYER" And db.Cells(y, 6).Value Like "PAID" Then
db.Rows(y).Copy Repayer.Rows(x)
x = x + 1
End If
Next y
End Sub