@Junior,
Este é um fórum de VBA.
---
Option Explicit
Private Sub UserForm_Initialize()
Dim List(1 To 3, 1 To 3)
List(1, 1) = 1
List(1, 2) = 2
List(1, 3) = 3
List(2, 1) = 4
List(2, 2) = 5
List(2, 3) = 6
List(3, 1) = 7
List(3, 2) = 8
List(3, 3) = 9
ListBox1.List = List
End Sub
Private Sub CommandButton1_Click()
Dim LastRow As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Plan1")
With ws
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
.Cells(LastRow, "A").Resize(ListBox1.ListCount, ListBox1.ColumnCount) = ListBox1.List
End With
End Sub
http://www.ambienteoffice.com.br - http://www.clarian.com.br