Como não sei exatamente como seu arquivo parece, vou ter que adivinhar um pouco. Mas você pode tentar isso:
Sub distribute()
Dim sh As Worksheet
Dim k As Long, i As Integer
Set sh = ThisWorkbook.Sheets("Data")
k = sh.Range("A1048576").End(xlUp).Row
For i = 1 To k
Worksheets("Template").Copy After:=Sheets(Sheets.Count)
sh.Rows(i).Copy Range("A2")
Next
End Sub
Observe que o " A " em sh.Range("A1048576")
define a coluna para pesquisar linhas.
Este código:
- Conta na última linha usada na coluna especificada e cria muitas novas planilhas (cópias da planilha "modelo").
- Copia a linha 1 da planilha "Dados" para A2 da primeira nova planilha (porque suponho que há uma tabela com um cabeçalho lá), a linha 2 de "Dados" para a segunda nova planilha e assim por diante .
- O NOT ignorará linhas vazias entre a primeira e a última linha e criará uma planilha vazia.
Talvez isso possa ser modificado para atender às suas necessidades. Boa sorte!