Change Range from one column to one Cell

[Livin404]

Good evening, the follow macro works great if I need to find all fillable text starting in Column K2. I would like it to look into one specific cell "K6" and it would put the result in "H8".
I thought I could change the data range to :

Data = Range("K6").Value

of course it didn't help. Again everything works find I just it to read one specific cell "K6".

Thank you very much indeed.

Sub International_Msn()
  Dim r As Long, Data As Variant, Result As Variant
  Data = Range("K2", Cells(Rows.Count, "K").End(xlUp)).Value
  Result = Range("H8").Resize(UBound(Data)).Value
  For r = 1 To UBound(Data)
    If Data(r, 1) Like "[ACEFGHIKLMNPQRSW0124678][ESU][N]*" Then
      Result(r, 1) = Result(r, 1) & Mid("/International", 1 - (Result(r, 1) = ""))
    End If
  Next
  Range("H8").Resize(UBound(Result)) = Result
End Sub

 

[Michael M]

Is this what you mean ???

Sub International_Msn()
    If Cells(6, 11) Like "[ACEFGHIKLMNPQRSW0124678][ESU][N]*" Then Cells(8, 8) = Cells(6, 11)
End Sub

 

[Livin404]

Is this what you mean ???

Sub International_Msn()
    If Cells(6, 11) Like "[ACEFGHIKLMNPQRSW0124678][ESU][N]*" Then Cells(8, 8) = Cells(6, 11)
End Sub

I see the (K6) with Cells(6,11), but the code that you have looks over- simplified. All the other information like the result line is missing. The macro I included is perfect, I just want to change it from looking at all the lines in (K2) to one specific cell (K6), and if it meets the criteria "Like" then it will insert the result "International" into Cell "H8".

Thank you,

 

[Michael M]

MAybe this then

Sub International_Msn()
     If Cells(6, 11) Like "[ACEFGHIKLMNPQRSW0124678][ESU][N]*" Then
      Cells(8, 8) = Cells(6, 11) & Mid("/International", 1 - (Cells(6, 11) = ""))
    End If
End Sub

 

[Livin404]

MAybe this then

Sub International_Msn()
     If Cells(6, 11) Like "[ACEFGHIKLMNPQRSW0124678][ESU][N]*" Then
      Cells(8, 8) = Cells(6, 11) & Mid("/International", 1 - (Cells(6, 11) = ""))
    End If
End Sub

I'll have to try that. It is much shorter than mine.

 

[Livin404]

MAybe this then

Sub International_Msn()
     If Cells(6, 11) Like "[ACEFGHIKLMNPQRSW0124678][ESU][N]*" Then
      Cells(8, 8) = Cells(6, 11) & Mid("/International", 1 - (Cells(6, 11) = ""))
    End If
End Sub

That is much closer, the only thing is it inputs the text in (6,11) at the beginning of Cell (8,8). What suppose to happen is if cell (8,8) is blank then in will insert "international" which "Mid("/International" provides. If there is already text in Cell (8,8) then "/international" is inserted.

Thank you,

 

[Livin404]

MAybe this then

Sub International_Msn()
     If Cells(6, 11) Like "[ACEFGHIKLMNPQRSW0124678][ESU][N]*" Then
      Cells(8, 8) = Cells(6, 11) & Mid("/International", 1 - (Cells(6, 11) = ""))
    End If
End Sub

I have about 15 of these codes, and some may end a result where more than just one macro "may" apply. This is why I had it so one text doesn't get overwritten. The macro is going to run through all of these.