     If Not CopyMe Is Nothing And Target = 0 Then         CopyMe.EntireRow.Copy Destination:=ThisWorkbook.Sheets("Names0").Range("A0")         Set CopyMe = Nothing     End If         If Not CopyMe Is Nothing And Target = 0 Then         CopyMe.EntireRow.Copy Destination:=ThisWorkbook.Sheets("Names0").Range("A0")         Set CopyMe = Nothing     End If      If Not CopyMe Is Nothing And Target = 0 Then         CopyMe.EntireRow.Copy Destination:=ThisWorkbook.Sheets("Names0").Range("A0")         Set CopyMe = Nothing     End If       If Not CopyMe Is Nothing And Target = 0 Then         CopyMe.EntireRow.Copy Destination:=ThisWorkbook.Sheets("Names0").Range("A0")         Set CopyMe = Nothing     End If 