automate copying cells into new worksheet if notblank, same worksheet if blank

hi forum!!

I have a spreadsheet with patient information that another company has asked for in a different format than they used to. instead of needing it as lines in a spreadsheet format they now want in separate sheets, divided by patient. Basically it's a form for each individual that they sent via a word doc that I copied into excel because I figured it'd be easier to transfer the data. Only problem is, I don't know the programming language at all. I've attached a spreadsheet example, where the names/demographic sheet is where I'm pulling the information from and the form sheet is where I want it transferred to. I need a script that does the following (and if anyone wants to just point me in the right direction on this, without doing all the heavy lifting, any level of assistance at all would be much appreciated!!) (note:my biggest struggle is how go to the next line when the script loops through, or specify whatever line it should be working on):

row X, if column A is NOTBLANK copy entire "form" sheet (so i can preserve the template)
then, in that newly copied sheet ("form (2)"), copy name, DOB, ID and first line of charges from "name_demographics" into correct fields on "form" sheet
if BLANK, create a new charge line in "form" sheet by copying row and inserting copied cells (<-- each patient will have a different amount of charges, so i don't want to run out of space for that)
copy charge code and amount from "name_demographics" sheet into "form (2)" sheet
next row, restart

I also don't know how to make it stop at the end (when there's no data in any of the lines... it'll be at a specified row though so i guess that helps).

thank you so much!

This Macro will do what you ask.
The ID No id the sheet name.

I would however create an Index sheet to find the ID using the client name

Sub Macro1()

    Start = 2
100     Sheets("name_demographics").Select
    LR = Range("D65536").End(xlUp).Row
    Range(Cells(Start + 1, 1), Cells(LR, 1)).Select
    On Error Resume Next
    Selection.Find(What:=",", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        
    If InStr(ActiveCell.Value, ",") > 0 Then
    endrow = ActiveCell.Row - 1
    Else
    endrow = LR - 1
    End If
    
    Sheets("form").Select
    Sheets("form").Copy Before:=Sheets(3)
  
    ActiveSheet.Name = Sheets("name_demographics").Range("C" & Start).Value

    
    Range("B1").Value = Sheets("name_demographics").Range("A" & Start).Value
    Range("B2").Value = Sheets("name_demographics").Range("B" & Start).Value
    Range("B3").Value = Sheets("name_demographics").Range("C" & Start).Value
    
    Sheets("name_demographics").Range("D" & Start & ":E" & endrow).Copy Range("B6")
    
    Range("B5:C" & 6 + endrow - Start).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("A1").Select
    
    Start = endrow + 1
    If Start < LR Then GoTo 100
End Sub

FWIW:

Sub mabm529()
Dim rcell As Range
Dim x As String
Dim ws As Worksheet
Dim ws2 As Worksheet
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With
Set ws = Sheets("name_demographics")
Set ws2 = Sheets("form")
ws.Activate
    For Each rcell In Range("A2:A" & Range("A" & Rows.count).End(3).Row)
        If rcell.Value <> "" Then
        Sheets.Add.Name = rcell.Value
        ws2.UsedRange.Copy Sheets(rcell.Value).Range("A1")
   
            Sheets(rcell.Value).Range("B1").Value = rcell.Value
            Sheets(rcell.Value).Range("B2").Value = rcell.offset(, 1).Value
            Sheets(rcell.Value).Range("B3").Value = rcell.offset(, 2).Value
        End If
    ws.Activate
    Next rcell
ws.Range("A2:A" & Range("D" & Rows.count).End(3).Row + 1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
ws.Range("A2:A" & Range("D" & Rows.count).End(3).Row + 1).Value = ws.Range("A2:A" & Range("D" & Rows.count).End(3).Row + 1).Value
ws.Activate
    For Each rcell In Range("A2:A" & Range("D" & Rows.count).End(3).Row + 1)
    Range(Cells(rcell.Row, "D"), Cells(rcell.Row, "E")).Copy Sheets(rcell.Value).Range("B" & Rows.count).End(3)(2)
    If rcell.offset(, 1) = "" Then rcell.Value = ""
    ws.Activate
    Next rcell
With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
End With
    
End Sub

Ok

This version populates an index sheet.

Run Macro1 to import your data

then enter Joe into cell A2 of the index sheet and press enter.

Click on the line that you want

Thanks to both of you for the responses! I tried working through both scripts and realized that a mock spreadsheet wasn't the way to showcase my issue, just because of the various approaches that one might take in certain situations versus others. I tried to edit them to fit the cells in my spreadsheet (which I can't share due to HIPAA laws), but it just didn't seem like it would work no matter what. It might seem haphazard, but the following are the places I need things copied:

In rows where columns A-E have nonblank cells, the A cell (in the "names" sheet) needs to go to D6 (always this specific cell in the "form" sheet). B to D7, C to H6, I to F8, E to D11, F to B37, H to E37.

In rows where columns A-E are blank on the "names" sheet, this means that we're still filling in data on the form for the above person. I need the datum in column F to go to whatever B cell on the "form" is open underneath B37... That is, if this is the first blank row, it would go in B38, if this is the second blank row for this person I would need it to go in B39, and so on. This is the same for the H datum, which I need to go to E38 and so on.

The copying of the form and renaming of the sheets worked really well. I'm working in Office 2013. Thank you both so much for your assistance!