Insert Text if first three characters are specic

[Livin404]

Good day,

I have a Code I know I have the right "general" idea.

I know I have the Case and listings correct, but I need the source data to be in "K6" I have Foreign Aircraft in the correct block "H8". I also know I don't need the .end(xlUp). In addition, I would like to input text in "H10" depending what the three letters are. For example "RRR" Royal Air Force would go into "H10", "CFC" would be Canadian Air Force would go into "H10" and so on. Can I have all of this in one macro or should I separate them.

Here is the macro I'm starting with.

Sub Foreign_ACFT()
    Dim i As Long
    For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        Select Case Left(ActiveSheet.Cells(i, 1).Value, 3)
            Case "UAF", "RRR", "IFC", "ASY", "LHO", "KAF", "CFC"
                ActiveSheet.Range("H8").Value = ActiveSheet.Range("H8").Value & " FOREIGN ACFT"
        End Select
    Next i

End Sub

 

[Livin404]

Good day,

I have a Code I know I have the right "general" idea.

I know I have the Case and listings correct, but I need the source data to be in "K6" I have Foreign Aircraft in the correct block "H8". I also know I don't need the .end(xlUp). In addition, I would like to input text in "H10" depending what the three letters are. For example "RRR" Royal Air Force would go into "H10", "CFC" would be Canadian Air Force would go into "H10" and so on. Can I have all of this in one macro or should I separate them.

Here is the macro I'm starting with.

Sub Foreign_ACFT()
    Dim i As Long
    For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        Select Case Left(ActiveSheet.Cells(i, 1).Value, 3)
            Case "UAF", "RRR", "IFC", "ASY", "LHO", "KAF", "CFC"
                ActiveSheet.Range("H8").Value = ActiveSheet.Range("H8").Value & " FOREIGN ACFT"
        End Select
    Next i

End Sub

I have some good news. I was able to sort it out, I just had to make a tweak or two. I ended up using two macros

Sub Non_Billable()
    Dim i As Long

    For i = 1 To ActiveSheet.Cells(Rows.Count, 11).End(xlUp).Row

        Select Case Left(ActiveSheet.Cells(i + 5, 11).Value, 3)

            Case "UAF", "RRR", "IFC", "ASY", "LHO", "KAF", "CFC"

                ActiveSheet.Range("H8").Value = "FOREIGN ACFT"

        End Select

    Next i

End Sub

Sub Foreign_ACFT()
    Dim i As Long

    Dim strFA As String

    For i = 1 To Cells(Rows.Count, "K").End(xlUp).Row
        strFA = Left(Cells(i, "K").Value, 3)

        If strFA = "CFC" Then Cells(i + 4, "H").Value = "Canadian Air Force"
        If strFA = "RRR" Then Cells(i + 4, "H").Value = "Royal Air Force"
         If strFA = "ASY" Then Cells(i + 4, "H").Value = "Australian Air Force"

    Next i
End Sub