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