Hsieh

Sub ¬d¸ß¥\¯à()

Set Name = Sheets("¬d¸ß³B²z°Ï").Range("P1")
Sheets("©m¦W°Ï").Select
G = [A65536].End(xlUp).Row
For i = 2 To G
    Cells(i, 9).Select
    If Cells(i, 9) = Name Then
    Range(Selection, Selection.End(xlToLeft)).Select
    Selection.Copy
    Sheets("¬d¸ß³B²z°Ï").Select
    c = [A65536].End(xlUp).Row
    Cells(c + 1, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End If
Next i
End Sub