Add a number of rows to a selected row and place a incremental suffix to data in col A

Hey Folks!
I'm trying to create a macro that will copy and insert additional lines to a selected row (got this part see "Insert_Line" in attached spread sheet). The problem I'm having is adding a letter to the end of the Data in column "A".
Thanks for the help

Try

Please Login or Register  to view this content.

kvsrinivasamurthy, Thanks you so much. Thats exactly what I needed. Have a great weekend

Welcome. This can work only up to Z.

kvsrinivasamurthy, I've been using this macro and it works great, but I see a need to modify it. I need to be able to continue the sequence. In other words if I have added 3 lines the letter suffix would be "A", "B", "C", I need to be able to add additional lines and continue with the sequence "D", "E", "F" and so on. Would this be doable?
Thanks

Try.

Please Login or Register  to view this content.

Amazing, I keep waiting for the day that this stuff will make sense to me, but it hasn't yet. I am so thankful for people like you that are willing to help. Thank you so much.

kvsrinivasamurthy,
Yeah, it's me again. I need to remove the dash/hyphen, for example 5_22A-6566621-Pl001 will become 5_22A-6566621-Pl001A, 5_22A-6566621-Pl001B, 5_22A-6566621-Pl001C and if I need to add additional rows they will become 5_22A-6566621-Pl001D, 5_22A-6566621-Pl001E and 5_22A-6566621-Pl001F . I've been trying to figure it out on my own, I think it will be here "If Left(Right(ActiveCell, 2), 1) = "-" Then" and here "ActiveCell.Offset(T, 0) = ActiveCell.Offset(T, 0) & "-" & Chr(T + 64)".
" If Left(Right(ActiveCell, 2), 1) = "-" Then" appears to be looking for a "-" to continue the letters at the end of a previous line insert
"ActiveCell.Offset(T, 0) = ActiveCell.Offset(T, 0) & "-" & Chr(T + 64)" is where it actually begins the whole process. I can remove the "-" here, but when I continue it gives me CA, CB, CC, etc.
If you should decide to help, Thank You and if you don't thanks anyway

kvsrinivasamurthy, This is probably a duplicate post, I thought I may have put the other one in the wrong place.
Yeah, it's me again. I need to remove the dash/hyphen, for example 5_22A-6566621-Pl001 will become 5_22A-6566621-Pl001A, 5_22A-6566621-Pl001B, 5_22A-6566621-Pl001C and if I need to add additional rows they will become 5_22A-6566621-Pl001D, 5_22A-6566621-Pl001E and 5_22A-6566621-Pl001F and not 5_22A-6566621-Pl001CD, 5_22A-6566621-Pl001CE and 5_22A-6566621-Pl001CF. I've been trying to figure it out on my own, I think it will be here "If Left(Right(ActiveCell, 2), 1) = "-" Then" and here "ActiveCell.Offset(T, 0) = ActiveCell.Offset(T, 0) & "-" & Chr(T + 64)".
" If Left(Right(ActiveCell, 2), 1) = "-" Then" appears to be looking for a "-" to continue the letters at the end of a previous line insert
"ActiveCell.Offset(T, 0) = ActiveCell.Offset(T, 0) & "-" & Chr(T + 64)" is where it actually begins the whole process. I can remove the "-" here, but when I continue it gives me CA, CB, CC, etc.
If you should decide to help, Thank You and if you don't thanks anyway