Fiz o código abaixo seguindo as boas práticas de programação, usando nomes de variáveis mais apropriados com o uso delas, além de não usar ActiveCell
, Offset
e outras coisas do tipo. Espero que prefira assim.
Option Explicit
Option Private Module
Sub Principal()
Dim PlanilhaAtual As Worksheet
Dim PlanilhaNova As Worksheet
Set PlanilhaAtual = Worksheets(1)
GerarPlanilha ("Nova")
Set PlanilhaNova = Worksheets("Nova")
Dim UltimaLinha As Long
UltimaLinha = PlanilhaAtual.Cells.Find("*", LookIn:=xlFormulas, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
' Copiando os valores para a planilha nova
Dim Linha As Long
For Linha = 2 To UltimaLinha
PlanilhaNova.Cells(Linha, 1).Value = PlanilhaAtual.Cells(Linha, 2).Value
PlanilhaNova.Cells(Linha, 2).Value = _
ConverterCategoria(CStr(PlanilhaAtual.Cells(Linha, 1).Value))
PlanilhaNova.Cells(Linha, 3).Value = "yes"
PlanilhaNova.Cells(Linha, 4).Value = PlanilhaAtual.Cells(Linha, 4).Value
PlanilhaNova.Cells(Linha, 5).Value = PlanilhaAtual.Cells(Linha, 2).Value
PlanilhaNova.Cells(Linha, 6).Value = ""
PlanilhaNova.Cells(Linha, 7).Value = PlanilhaAtual.Cells(Linha, 6).Value
PlanilhaNova.Cells(Linha, 8).Value = PlanilhaAtual.Cells(Linha, 7).Value
Next
End Sub
Sub GerarPlanilha(Nome As String)
Dim Planilha As Worksheet
' Excluindo planilha existente se houver
For Each Planilha In Worksheets
If Planilha.Name = Nome Then
Application.DisplayAlerts = False
Planilha.Delete
Application.DisplayAlerts = True
End If
Next
' Criando a planilha nova
Set Planilha = Worksheets.Add(After:=Sheets(Sheets.Count))
Planilha.Name = Nome
' Gerando cabeçalho na planilha nova
Range("A1").Value = "name(pt-br)"
Range("B1").Value = "categories"
Range("C1").Value = "shipping"
Range("D1").Value = "quantity"
Range("E1").Value = "model"
Range("F1").Value = "sku"
Range("G1").Value = "price"
Range("H1").Value = "date_added"
End Sub
Function ConverterCategoria(Texto As String) As Long
' O valor 0 é retornado caso o texto não tenha um valor correspondente
Select Case Texto
Case "Multimídia > Multilaser"
ConverterCategoria = 1
Case "Sestini > Meninos"
ConverterCategoria = 2
Case Else
ConverterCategoria = 0
End Select
End Function
O código contém uma rotina principal (a que você deverá executar), uma sub-rotina para criar a planilha nova (e apagar, caso exista) e uma função para gerar o valor da categoria.
O uso da função é melhor neste seu caso, já que valores novos podem ser acrescentados, por isso mantive à parte, sem misturar com o restante do código. Também coloquei o retorno 0 para o caso do texto não ser encontrado. Caso você encontrar alguma categoria com valor 0, é preciso ver qual (ou quais) foram as categorias que não estão prevista(s) e acrescentar no código.
Se houver alguma questão sobre o código ou algum trecho que precisa ser melhor explicado, é só perguntar que respondo.