Wilerson Antonio Rufino

Ola pessoal... Gostaria de ajuda pois sou iniciante em vba. Com o Código que segue abaixo gostaria de copiar e colar os valores de três planilhas diferentes em outra planilha, com um determinado critério. segue código e planilha. Sub copiar() Dim K As Integer Dim i As Integer Dim var001 As Range K = 19 Sheets("LT102 ACUIII-JCMIII").Select Application.ScreenUpdating = 0 Application.Calculation = xlCalculationManual For i = 17 To 116 For Each var001 In Range("M17").Cells Sheets("LT102 ACUIII-JCMIII").Select If Len(var001.Value) <> "" Then a = Sheets("LT102 ACUIII-JCMIII").Cells(i, "M").Value b = Sheets("LT102 ACUIII-JCMIII").Cells(i, "B").Value Res01 = b & "L102" & " " & a Sheets("LT103 JCMIII-CMII").Select If Len(var001.Value) <> "" Then C = Sheets("LT103 JCMIII-CMII").Cells(i, "M").Value d = Sheets("LT103 JCMIII-CMII").Cells(i, "B").Value Res02 = d & "L103" & " " & C Sheets("LT 104 CMII-JCMII").Select If Len(var001.Value) <> "" Then e = Sheets("LT 104 CMII-JCMII").Cells(i, "M").Value f = Sheets("LT 104 CMII-JCMII").Cells(i, "B").Value Res03 = f & "L104" & " " & e Resfinal = Res01 & " " & Res02 & " " & Res03 Sheets("RDO 2-2").Select Cells(K, "B").Value = Resfinal K = K + 1 Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = 1 End If End If End If Next Next End Sub planilha001.xlsm