Private Sub CommandButton1_Click()
Dim nF As String, i As Integer, T As Variant
T = Range("A2:C" & Range("A65000").End(xlUp).Row).Value
For i = LBound(T) To UBound(T)
On Error Resume Next
nF = Left(T(i, 1), Len(T(i, 1)) - 2)
With Sheets(nF)
dl = .Range("A65000").End(xlUp).Row + 1
.Cells(dl, 1) = "'" & nF
.Cells(dl, 2) = T(i, 2)
.Cells(dl, 3) = T(i, 3)
End With
Next
End Sub