Macro para insertar un valor en una celda de excel

A ver si te entendí mientras tengas datos en la columna A quieres insertar determinada palabra en la columna "B" me imagino que varia los datos de la columna A

Prueba y comentas

En este ejemplo supuse que tus datos inician en la celda A1 puedes adecuarlo

Sub reincersion()
'coding by Cecilio perez M
    With [A1]
    If .Offset(0) = Empty Then Exit Sub
    c = .End(xlDown).Row
    End With
 For i = 1 To c
 If Not IsEmpty(Cells(i, 1)) Then
    Cells(i, 2) = "Valorainsertar"
  End If
  Next
    MsgBox "Fin"
End Sub

Buen día Cecilio,

Mil gracias funciona perfecto, te quería hacer una nueva consulta que me surgió relacionado a este tema, en vez de enviar la palabra "Valorainsertar" puedo enviar una fórmula para que en esos casos genere por ejemplo:

                    A                             B                           C

1              Data1              "=A1&"valor"

2              Data2              "=A1&"valor"

3              Data3              "=A1&"valor"

4

Quedo atento y mil gracias por tu ayuda

Buen día Cecilio,

Mil gracias funciona perfecto, te quería hacer una nueva consulta que me surgió relacionado a este tema, en vez de enviar la palabra "Valorainsertar" puedo enviar una fórmula para que en esos casos genere por ejemplo:

                    A                             B                           C

1              Data1              "=A1&"valor"

2              Data2              "=A2&"valor"

3              Data3              "=A3&"valor"

4

En este caso el valor que se inserta varia de acuerdo a los datos de la columna A

Quedo atento y mil gracias por tu ayuda

¿O sea que quieres concatenar cierto? Claro que se puede

Prueba esto a ver si es lo que necesitas, de ser así no olvides valorar el tiempo invertido, Saludos

Sub reincersion()
'coding by Cecilio perez M
    With [A1]
    If .Offset(0) = Empty Then Exit Sub
    c = .End(xlDown).Row
    End With
 For i = 1 To c
 If Not IsEmpty(Cells(i, 1)) Then
    Cells(i, 1).Offset(0, 1).Value = Cells(i, 1) & "  " & "Valorainsertar"
  End If
  Next
    MsgBox "Fin"
End Sub

Muchas gracias.

Funciona Perfecto.