Private Sub CommandButton1_Click()
Dim Cel As Range, TDon(), TRés(), L&
TDon = Me.[B2:B11].Value
ReDim TRés(1 To UBound(TDon, 1), 1 To 2)
For L = 1 To UBound(TDon, 1)
Cells(4, "A").Value = TDon(L, 1)
TRés(L, 1) = Cells(4, "G").Value
TRés(L, 2) = Cells(6, "G").Value
Next L
Me.Cells(2, "C").Resize(UBound(TRés, 1), 2).Value = TRés
End Sub