Textbox input goes to 2 sheets in same wbk
 

Hi experts
Can i have an idea how to send this ifn fo in 2 sheets with thw same button click
I am using this part for textbox entry
I want to this info goes to sheet 6 also
that is same information in sheet 4 and 6
Code......then
RowCount = Worksheets("Sheet4").Range("A1").CurrentRegion.Row s.Count
With Worksheets("Sheet4").Range("A1")
.Offset(RowCount, 0).Value = UserForm1.TextBox1.Value
.Offset(RowCount, 1).Value = UserForm1.TextBox2.Value
.Offset(RowCount, 2).Value = UserForm1.TextBox3.Value
.Offset(RowCount, 3).Value = UserForm1.TextBox4.Value
.Offset(RowCount, 4).Value = UserForm1.ComboBox1.Value
.Offset(RowCount, 6).Value = UserForm1.TextBox6.Value
.Offset(RowCount, 7).Value = UserForm1.TextBox7.Value
.Offset(RowCount, 8).Value = UserForm1.ComboBox2.Value
.Offset(RowCount, 9).Value = UserForm1.ComboBox4.Value
.Offset(RowCount, 19).Value = UserForm1.ComboBox3.Value
.Offset(RowCount, 21).Value = UserForm1.ComboBox5.Value



End With

For Each ctl In UserForm1.Controls
If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then
ctl.Value = ""

End If
Next ctl


End Sub


Help please

Bakar