Hi, this is my 1st post here and I hope You can help me.
I'm not a programmer so I confess I did the following macro copying and pasting here and there...
I would like to ask for Your support as I need to add a new feature to this macro but I don't know how to do it and I hope You do!
The following code takes an excel file and splits its lines into 2 blank worksheets depending on a certain caracter inside a certain cell.
It works fine, but I need to add an extra feature.
I would like that:
1) When done, in the worksheet "a" a new blank column is created after column "B".
2) The "A" column inside worksheet "b" is copied into the empy column created at step 1.
Can anyone help me to modify this line so that they do this operation too?

[VBA]Public Sub CopyRows()
Sheets("Sheet1").Select
' Find the last row of data
FinalRow = Range("A65536").End(xlUp).Row
' Loop through each row
For x = 14 To FinalRow
' Decide if to copy based on column H
ThisValue = Range("K" & x).Value
If ThisValue = "R" Then
Range("A" & x & ":S" & x).Copy
Sheets("a").Select
NextRow = Range("A65536").End(xlUp).Row + 1
Range("A" & NextRow).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
ElseIf ThisValue = "" Then
Range("A" & x & ":S" & x).Copy
Sheets("b").Select
NextRow = Range("A65536").End(xlUp).Row + 1
Range("A" & NextRow).Select
ActiveSheet.Paste
Sheets("Sheet1").Select
End If
Next x
End Sub[/VBA]

Thanks in advance for Your attention.