Excel - Eliminar mensaje de advertencia

Hola amigos soy nuevo por estos lados, necesito de su ayuda, mi caso es el siguiente:Tengo un archivo excel que al pegar en la columna "D" un dato que traigo de otro excel por medio de una macro controlada por un boton me separa la hora en dos celdas , el problema es realiza correctamente el proceso pero me sale un mensaje de selccion que dice asi "Aqui ya hay datos. Quieres reemplazarlos?" ese mensaje sale por cada celda. Lo que deseo es quitar ese mensaje.
El codigo de la macro es el siguiente
Sub Macro3()
'
' Macro3 Macro
'

'
If (Range("d2") <> "") Then
Range("D2").Select
Selection.TextToColumns Destination:=Range("E2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Else
End If

If (Range("d3") <> "") Then
Range("D3").Select
Selection.TextToColumns Destination:=Range("E3"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Else
End If

If (Range("d4") <> "") Then
Range("D4").Select
Selection.TextToColumns Destination:=Range("E4"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Else
End If

If (Range("d5") <> "") Then
Range("D5").Select
Selection.TextToColumns Destination:=Range("E5"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Else
End If

If (Range("d6") <> "") Then
Range("D6").Select
Selection.TextToColumns Destination:=Range("E6"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Else
End If

If (Range("d6") <> "") Then
Range("D6").Select
Selection.TextToColumns Destination:=Range("E6"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Else
End If

If (Range("d7") <> "") Then
Range("D7").Select
Selection.TextToColumns Destination:=Range("E7"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Else
End If

If (Range("d8") <> "") Then
Range("D8").Select
Selection.TextToColumns Destination:=Range("E8"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Else

End If

If (Range("d9") <> "") Then
Range("D9").Select
Selection.TextToColumns Destination:=Range("E9"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Else
End If

If (Range("d10") <> "") Then
Range("D10").Select
Selection.TextToColumns Destination:=Range("E10"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Else
End If

If (Range("d11") <> "") Then
Range("D11").Select
Selection.TextToColumns Destination:=Range("E11"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Else
End If

If (Range("d12") <> "") Then
Range("D12").Select
Selection.TextToColumns Destination:=Range("E12"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Else
End If



End Sub


De ante mano gracias por sus aportes.