Help creating new row after last row with merged cells

[Fronik]

Hello,

I have userform inserting data to sheet:

lastrow = Worksheets("1.-3.").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("1.-3.").Cells(lastrow + 1, 1).Value = TextBox2.Text
Worksheets("1.-3.").Cells(lastrow + 1, 2).Value = TextBox1.Text
Worksheets("1.-3.").Cells(lastrow + 1, 3).Value = TextBox3.Text
Worksheets("1.-3.").Cells(lastrow + 1, 13).Value = TextBox2.Text


EDIT:
And i need to automatically create new line after last row in column A with merged cells from C to J, how can i make it. Please help someone?

 

[Joe4]

Welcome to the Board!

You can use:

Worksheets("1.-3.").Range(Cells(lastrow + 1, 3), Cells(lastrow + 1, 10)).Merge

though I would HIGHLY recommend NOT using merged cells, and use "Center Across Selection" like this, as merged cells create all sorts of headaches and should be avoided, if at all possible (see: Tom’s Tutorials For Excel: Using Center Across Selection Instead of Merging Cells – Tom Urtis)

Code for that would look like:

Worksheets("1.-3.").Range(Cells(lastrow + 1, 3), Cells(lastrow + 1, 10)).HorizontalAlignment = xlCenterAcrossSelection

 

[MARK858]

@Joe4 I think that will produce an error if Worksheets("1.-3.") isn't the Activesheet,
I think it should be more like

    With Worksheets("1.-3.")
        .Range(.Cells(lastrow + 1, 3), .Cells(lastrow + 1, 10)).Merge
    End With

 

[Fronik]

Welcome to the Board!

You can use:

Worksheets("1.-3.").Range(Cells(lastrow + 1, 3), Cells(lastrow + 1, 10)).Merge

though I would HIGHLY recommend NOT using merged cells, and use "Center Across Selection" like this, as merged cells create all sorts of headaches and should be avoided, if at all possible (see: Tom’s Tutorials For Excel: Using Center Across Selection Instead of Merging Cells – Tom Urtis)

Code for that would look like:

Worksheets("1.-3.").Range(Cells(lastrow + 1, 3), Cells(lastrow + 1, 10)).HorizontalAlignment = xlCenterAcrossSelection

Thank you so much! This helped a lot but still need some help, as there will be a lot of text between columns C and J, is it possible to merge it somehow if there is more text than what can fit between those rows? And How can i make it to make a new empty row automatically after?

 

[Fronik]

Thank you so much! This helped a lot but still need some help, as there will be a lot of text between columns C and J, is it possible to merge it somehow if there is more text than what can fit between those rows? And How can i make it to make a new empty row automatically after?

Oh i mean, can i use autofit somehow with that merged cell? As this merging worked for me so well but need to fit row height automatically with text and create new row after last entry

 

[Joe4]

Oh i mean, can i use autofit somehow with that merged cell? As this merging worked for me so well but need to fit row height automatically with text and create new row after last entry

You cannot use AutoFit with merged cells. See: You cannot use the AutoFit feature for rows or columns that contain merged cells in Excel - Microsoft Support.

Autofit only really makes sense when working with individual cells/columns at a time.