How to Find the word and copy paste the value in another sheet.please help

[punnipah]

Sub DefineArea()
Dim oSht As Worksheet
Dim vL As Range, vE As Range
Set oSht = Sheets("Pivot")
For Each vL In Range("D6", Range("E" & Rows.Count).End(xlUp))
Select Case vL.Value
Case "Total Ertrag"
End Select
Range("E6").Select
'Next Step
'I would like to Copy data From Columns F-I and Paste another Work Sheet if the data the same '
Ex. Columns "E"

BC11>>Copy data to Another Work Sheet BC11
AS_ACT AS_AMT CL_ACT CL_AMT
794,673.52 1,392.00 687.00 359416.91

But the billing cycle information is not the same.

Next vL

End Sub




Data

Output: Another Work Sheet