Uso a função abaixo para copiar colunas alternadas da Planilha9 para a Planilha16.
Funciona, mas tá bem lenta.
Alguém sabe como melhorar a performance?

Sub AtualizaMENU()
Dim LR1, LR2, i As Long
LR1 = Planilha9.Cells(Rows.Count, 1).End(xlUp).Row
Planilha16.Range("A14:H1012").ClearContents
    For i = 14 To LR1
        If Planilha9.Range("B" & i) = "Em Ser" Then
            LR2 = Planilha16.Range("D" & Rows.Count).End(xlUp).Row + 1
            Planilha16.Range("B" & LR2).Value2 = Planilha9.Range("F" & i).Value2
            Planilha16.Range("C" & LR2).Value2 = Planilha9.Range("D" & i).Value2
            Planilha16.Range("D" & LR2 & ":E" & LR2).Value2 = Planilha9.Range("G" & i & ":H" & i).Value2
        End If
    Next i
End Sub