Excel, Pintar celdas de un rango concreto y pasarlas a otra hoja

Tengo el siguiente código de una macro:

Sub BUSCAR_VOLUMENES_500()
Dim Celda As Range
Dim PALABRA As String
Dim VOLUMEN0 As String
Dim LOG As String
Dim MENSAJE As String
    PALABRA = "*" & "NOMBRE MAQUINA" & "*"
    VOLUMEN0 = "*" & "vol0" & "*"
    LOG = "*" & "vol_logs" & "*"
    MENSAJE = "*" & "mensajes" & "*"
    For Each Celda In Range("B1:B999")
            If PALABRA = PALABRA Then
            ElseIf (Celda.Value Like VOLUMEN0) Or (Celda.Value Like LOG) Or (Celda.Value Like    MENSAJE) Then
            Celda.Interior.ColorIndex = 35
        End If
        End If
    Next Celda
End Sub

Y lo que quiero hacer y me sale error es lo siguiente: Sería buscar en un texto "NOMBRE MAQUINA" que tengo en la hoja DATOS, pintar las celdas Vol, Log y mensajes y pasarlas a la hoja CÁLCULOS (las celdas en las que tienen que ir estos datos pintados en la hoja cálculos son siempre LOG B5; VOL0 B6; MENSAJES B7)