Shamima Sultana

Hi Arda
Hope you are doing well.

I checked the code you mentioned above and it works. To make it more clear I’m attaching some images with the code.

Here, I tried the exact code in the same dataset.
MsgBox Range("E5").End(xlToRight).Offset(0, 1).Address

You can see the result $G$5.

Again I changed the dataset slightly.

Here, the result is also based on the location.

NB. If it doesn’t help you then please send your dataset to [email protected] or [email protected]

Thanks
Shamima Sultana
ExcelDemy

Hello Tamiko,

You are most welcome.

Regards
ExcelDemy

Hello Brenda Gale Austin-Sanders,

You are most welcome.

Regards
ExcelDemy

Hello Amanz,

We shared our ideas with you in your ExcelDemy Forum post.

Hello Ani,

You are most welcome.

Regards
ExcelDemy

Hello Mohammad,

You are welcome.

Regards
ExcelDemy

Hello Romeo Nyi,

Regards
ExcelDemy

Hello Juan,

You are most welcome.

Regards
ExcelDemy

Hello Azreim,

You are most welcome.

Regards
ExcelDemy

Hello Lee G,

You are most welcome.

Regards
ExcelDemy

Hello Mian Muhammad Saleem,

You are most welcome.

Regards
ExcelDemy

Hello Eduardo,

You are welcome.

Regards
ExcelDemy

Hello Mongwongprue Marma,

You are welcome.

Regards
ExcelDemy

Hello Adam,

Thanks for your appreciation. You are most welcome.

Regards
ExcelDemy

Hello Dawood,

Thanks for your appreciation.

Regards
ExcelDemy

Hello Daniel Woods,

To make problem sharing easier we launched ExcelDemy Forum, so that you can upload Excel Files and images of your problem. You can share your workbook in ExcelDemy Forum our expert team will reach out to you.

Regards
ExcelDemy

Hello Abishek,

You are most welcome.

Regards
ExcelDemy

Hello Mike Longoria,

You are most welcome.

Regards
ExcelDemy

Dear Andrija,

You are most welcome.

Regards
ExcelDemy

Hello Syifaa’ Mustafa,

To get the Developer tab follow the steps mentioned in the article “Display the Developer tab in Excel“. Then you can use it to create Tooltip.

Regards
ExcelDemy

Hello DanJ,

You are most welcome.

Regards
ExcelDemy

Hello Odedele Olufemi,

You are welcome.

Regards
ExcelDemy

Hello Chanyalew,

Thanks for your appreciation.

Regards
ExcelDemy

Hello Nasir Ahmed,

Thanks for your appreciation.

Regards
ExcelDemy

Hello Vickie Addo,

We have given the answers of 100 questions in our Excel File, which is given in the Download Practice Workbook Section. As these questions are given to test your skills it won’t be helpful to check the answer immediately. A gif is given how you can test your skills at the end. Please download the Excel File and test you skills then see the answers.

Regards
ExcelDemy

Dear Alexandar P,

You are most welcome.

Regards
ExcelDemy

Hello Viraltecho,

You are most welcome.

Regards
ExcelDemy

Hello,

You are most welcome.

Regards
ExcelDemy

Dear Dave,

You are most welcome.

Regards
ExcelDemy

Hello Samia,

In the Download Practice Workbook section, you will get the dataset used in the article.

Regards
ExcelDemy

Hello May,

The “Developer Tab” option is missing in default Excel versions. You can enable it from Excel Options. By following this article Display the Developer Tab you can enable it easily.

Regards
ExcelDemy

Dear Sovereign,

Thanks for your appreciation.

Regards
ExcelDemy

Dear Anusha Uppuganti,

You are most welcome. We are so glad that our article explanation helped you.

Regards
ExcelDemy

Hello Tsegay Gebreselasie,

Our aim is giving you the best Excel-related content like this.

Regards
ExcelDemy

Hello Rolan,

Thanks for your suggestion. Article is updated.

Hello Taiwo,

All the solution are available in the Excel Practice file section.

We used this formula to get discount amount: =F5*IF(D5<1,0.03,0.05)

Regards
ExcelDemy

Hello James Ward,

To run the code from Excel you can follow these steps:
Developer tab >> Macros >> Select any Sub Procedure from the list

Regards
ExcelDemy

Dear Noe Albarran,

You are most welcome.

Regards
ExcelDEmy

Dear Amir

You have to use either the combined formula or the vba code. Because converting number to words maintaing the place vaule is not possible by simple formula.

Regards
ExcelDemy

Hello Viraltecho,

You are most welcome.

Regards
ExcelDemy

Dear Roberto,

You are most welcome.

Regards
ExcelDemy

Dear Dilip Paunikar

You are most welcome.

Regards
ExcelDemy

Hello Manwesh,

You can state your problem in the comment section or in our ExcelDemy Forum.

Regards
ExcelDemy

Dear Evangeline,

Thanks for your appreciation. Our experienced writers write these questions after doing a complete research about the topic.

Regards
ExcelDemy

Dear Ryan,

Glad to hear that our article helped you.

Regards
ExcelDemy

Dear Raf,

You are most welcome.

Regards
ExcelDemy

Dear Jess,

Thanks for your appreciation.

Regards
ExcelDemy

Hello y2mate,

Thanks for your appreciation.

Regards
ExcelDemy

Dear Martin Carrion,

You are most welcome.

Regards
ExcelDemy

Dear Navini,

You are most welcome.

Regards
ExcelDemy

Dear Justice,

You are most welcome.

Regards
ExcelDemy

Dear Karen,

You are most welcome.

Regards
ExcelDemy

Dear Tiago,

You are most welcome.

Regards
ExcelDemy

Dear Foysal,

You are most welcome.

Regards
ExcelDemy

Hello BART,

It is possible to add a VB line of code to run the selection change code only when you click the tab of the worksheet called “index.” To achieve this, you can use the Worksheet_Activate event in the code module of the “index” worksheet. Here’s the code.

Private Sub Worksheet_Activate()
    Dim mVCount As Integer
    Dim mHCount As Integer
    Dim mVBreak As VPageBreak
    Dim mHBreak As HPageBreak
    Dim mNumPage As Integer
    
    mHCount = 1
    mVCount = 1
    
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        mHCount = ActiveSheet.HPageBreaks.Count + 1
    Else
        mVCount = ActiveSheet.VPageBreaks.Count + 1
    End If
    
    mNumPage = 1
    
    For Each mVBreak In ActiveSheet.VPageBreaks
        If mVBreak.Location.Column > ActiveCell.Column Then Exit For
        mNumPage = mNumPage + mHCount
    Next
    
    For Each mHBreak In ActiveSheet.HPageBreaks
        If mHBreak.Location.Row > ActiveCell.Row Then Exit For
        mNumPage = mNumPage + mVCount
    Next
    
    ThisWorkbook.Worksheets("Worksheet 1").Range("I2").Value = "Page " & mNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    ThisWorkbook.Worksheets("Worksheet 3").Range("C5").Value = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

Regards
Alif Bin Hussain

Dear Bart,

You are most welcome. Sure, you can inform us.

Regards
ExcelDemy

Dear Danny Van Straten,

If you need any types of customized templates you may contact us through [email protected]
We have a expert team to create any types of professional templates.

Regards
ExcelDemy

Hello Pankaj,

You are welcome.

Regards
ExcelDemy

Dear Mustafa,

You are most welcome.

Regards
ExcelDemy

Dear B,

You are welcome.

Regards
ExcelDemy

Dear Carl,

You are most welcome.

Regards
ExcelDemy

Dear Macel Williams,

To customize any templates you can contact with us via this mail problem @exceldemy.com

Regards
ExcelDemy

Dear Qasim,

Thanks for your suggestions we have updated our Exercise 3 you can check it now.

Regards
ExcelDemy

Dear Nikhil Pandey,

You will get all the solutions in the workbook’s Solution sheet. Here I’m giving you the query answer for your understanding.

The Formula is : =WEEKDAY(B5,11)

Regards
ExcelDemy

Dear Aiden,

Yes you can do that.

Regards
ExcelDemy

Dear Marc,

You are welcome.

Regards
ExcelDemy

Dear Prakash Tulsiani,

You are most welcome.

Regards
ExcelDemy

Hello Dear,

You can download the Excel and PDF files free of cost just by providing your valid email address. To get the files go to the “Download Excel Formulas Cheat Sheet PDF & Excel Files” section of this post and enter your email address. Then check your email immediately after to get the download links.

Best Regards
ExcelDemy

Dear Dr,

You are most welcome.

Regards
ExcelDemy

Dear Macel Williams,

You are most welcome.

Regards
ExcelDemy

Dear Isaac,

You are most welcome.

Regards
ExcelDemy

Dear Sara,

You will find the solutions in the Excel file which is given in Download Practice Workbook section.

Regards
ExcelDemy

Dear Md. Morshed Alam,

You are most welcome.

Regards
ExcelDemy

Dear Paresh Kanti Paul,

We are glad to hear that.

Regards
ExcelDemy

Dear Sushil,

You are most welcome.

Regards
ExcelDemy

Dear Bolajoko Olufemi,

You will get all resources related to Data Analysis here All About Data Analysis. We are planning to launch courses as soon as possible.

Regards
ExcelDemy

Dear Ronhat Minmin,

If you want to get the Excel File, you can download it from Download Practice Workbook

Regards
ExcelDemy

Hello Dear,

You can download the Excel and PDF files free of cost just by providing your valid email address. To get the files go to the “Download Excel Formulas Cheat Sheet PDF & Excel Files” section of this post and enter your email address. Then check your email immediately after to get the download links.

Best Regards
ExcelDemy

Dear Khin Soe,

You are most welcome.

Regards
ExcelDemy

Dear Mohamad,

Thanks for your appreciation

Regards
ExcelDemy

Dear Sandeep Bhattacharjee,

You are most welcome and thanks for your appreciation.

Regards
ExcelDemy

Dear S Roy,

You are most welcome.

Regards
ExcelDemy

Dear Lana,

You are most welcome.

Regards
ExcelDemy

Hi Ndonwi,

Thanks

Dear Joanna,

You are most welcome.

Regards
ExcelDemy

Dear Andrei,

These functions are available in WPS office.

Regards
ExcelDemy

Dear Tommy Fuifui,

You are most welcome.

Regards
ExcelDemy

Dear Car,

You are most welcome.

Regards
ExcelDemy

Dear Anitelleth,

You are most welcome.

Regards
ExcelDemy

Dear Kay,

You are welcome.

Regards
ExcelDemy

Dear Abel,

Thanks for your appreciation. You are most welcome.

Regards
ExcelDemy

Dear Joris,

You are most welcome. We are glad to hear that.

Regards
ExcelDemy

Dear Kapil,

Thanks for your appreciation.

Regards
ExcelDemy

Hello Silpa,

You can download the Excel and PDF files free of cost just by providing your valid email address. To get the files go to the “Download Excel Formulas Cheat Sheet PDF & Excel Files” section of this post and enter your email address. Then check your email immediately after to get the download links.

Best Regards
ExcelDemy

Dear Ajij Nadaf,

We will love to give you suggestions. kindly share your problem.

Regards
ExcelDemy

Hey Philip,

Thanks for your response. You can use the SORT and FILTER functions along with the LARGE function to solve your problem.
Here’s the practice sheet we used. You can check it out for a better understanding.
SORT-FILTER.xlsx
You can also check out this article for more detailed explanations.
https://www.exceldemy.com/excel-top-10-list-with-duplicates/

Regards
Hassan Shuvo| ExcelDemy Team

Dear MD. KAMAL HOSSAIN,

To obtain your required format please follow the following simple steps:
From your Excel Workbook, press ALT + F11 to open Visual Basic Editor.
Insert a module.
Paste the following code:

Function NumberToWords(ByVal Number As Long) As String
    Dim Ones() As String
    Dim Tens() As String
    Dim Group() As String
    Dim Result As String
    
    Ones = Split("One,Two,Three,Four,Five,Six,Seven,Eight,Nine", ",")
    Tens = Split("Ten,Eleven,Twelve,Thirteen,Fourteen,Fifteen,Sixteen,Seventeen,Eighteen,Nineteen", ",")
    Group = Split("Twenty,Thirty,Forty,Fifty,Sixty,Seventy,Eighty,Ninety", ",")
    
    If Number = 0 Then ' Handle zero
        Result = ""
    ElseIf Number < 10 Then
        Result = Ones(Number - 1)
    ElseIf Number < 20 Then
        Result = Tens(Number - 10)
    ElseIf Number < 100 Then
        If Number Mod 10 = 0 Then ' Handle multiples of 10
            Result = Group(Int(Number / 10) - 2)
        Else
            Result = Group(Int(Number / 10) - 2) & " " & Ones(Number Mod 10 - 1)
        End If
    ElseIf Number < 1000 Then
        Result = Ones(Int(Number / 100) - 1) & " Hundred " & NumberToWords(Number Mod 100)
    ElseIf Number < 1000000 Then
        Result = NumberToWords(Int(Number / 1000)) & " Thousand " & NumberToWords(Number Mod 1000)
    ElseIf Number < 1000000000 Then
        Result = NumberToWords(Int(Number / 1000000)) & " Million " & NumberToWords(Number Mod 1000000)
    Else
        Result = "Number is too large."
    End If
    
    NumberToWords = Trim(Result)
End Function

Now, return to your worksheet. Type in the following formula in the cell where you require the output and press Enter key.
=NumberToWords(B5) & ” Taka Only”
Here, B5 indicates the reference of the cell where you have the input number.

I hope this solution will be sufficient for your requirements. Let us know your feedback.

Regards,
ExcelDemy

Dear Tudor,

Hope you are doing well. Answer of your questions are given below with explanation.

1. How can I change the month and day from English to Romanian?

Select the cell with month and date, cell C7 in our case.
Right-click with the mouse and select Format Cells.

In the Format Cells window, select Romanian (Moldova) under the Locale menu.
Then, select any type under the Type menu and click the OK button.

The month and date are changed into Romanian from English. Do the same process for cell E7.

2. If an employee works on Saturday and/or Sunday, how can I collect those weekend hours separately, in a cell?

Let’s say the first employee works on Saturday and Sunday for 5 and 6 hours respectively. He works on 4 weekends which you can see in the picture. To sum these values we’ll use the SUMIFS function.
Apply the formula in any cell where you want the weekend hours, let’s say cell AM11-
=SUMIFS($F$11:$AJ$11,$F$11:$AJ$11,"<>P",$F$11:$AJ$11,"<>A")

Thanks for your suggestions.

Dear Elizabeth,

You are most welcome. We are so glad that our article fulfilled your need.

Regards
ExcelDemy

Dear HG,

You are most welcome.

Regards
ExcelDemy

Dear Gunawan,

Thanks for your suggestions. We updated the article. You can check it now.

Regards
ExcelDemy

Dear Rafi,

Thanks for your appreciation.

Regards
ExcelDemy

Dear Rashmi,

You are most welcome.

Regards
ExcelDemy

Dear Silver,

You are most welcome.

Regards
ExcelDemy

Dear Eugen Safta,

You are most welcome.

Regards
Shamima Sultana | ExcelDemy

Dear Sanket,

Thanks for your appreciation.

Regards
Shamima Sultana
Project Manager | ExcelDemy

Dear Vivasvan,

You are most welcome. It’s great to know that our article helped you to complete your project.

Regards
Shamima Sultana
Project Manager | ExcelDemy

Hi Robert Bakinam,

Here, you will get the full copy in pdf Marking Result Sheet.

Regards
Shamima Sultana
Project Manager | ExcelDemy

Dear Kirsten Wheeler,

Thanks for your appreciation. To get solutions with detailed explanations, follow ExcelDemy.

Regards
Shamima Sultana
Project Manager | ExcelDemy

Dear CJvW,

Thanks for your appreciation. To get more helpful content be with ExcelDemy.

Regards
Shamima Sultana
Project Manager | ExcelDemy

Dear Michael Gamal Aziz,

You are most welcome.

Regards
Shamima Sultana
Project Manager | ExcelDemy

Dear Uday Kumar,

We are working on your problem. We will appreciate you to post your problem in our ExcelDemy Forum.

Regards
Shamima Sultana
Project Manager | ExcelDemy

Dear Datla Srinivas,

We are working on your requirements. We hope we will come back to you with your expected solutions.

Regards
Shamima Sultana
Project Manager | ExcelDemy

Hello Joanie,

You are most welcome.

Regards
Shamima Sultana | Project Manager | ExcelDemy

Dear Ven Upekkha,

Thanks for your appreciation.

Regards
Shamima Sultana | Project Manager | ExcelDemy

Dear umit,

Thanks for your appreciation it means a lot to us.

Regards
Shamima Sultana | Project Manager | ExcelDemy

Dear Carl,

Thanks for your appreciation. ExcelDemy is glad to help you.

Regards
Shamima Sultana | Project Manager | ExcelDemy

Dear Micah,

Thanks for your kind words. ExcelDemy is dedicated to provide solutions to help you.

Regards
Shamima Sultana | Project Manager | ExcelDemy

Dear Shanmuga Raja V S,

Thanks for your appreciation. Stay in touch with ExcelDemy.

Regards
Shamima Sultana | Project Manager | ExcelDemy

Dear Zidane,

Thanks for your appreciation.

Shamima | Project Manager | ExcelDemy

Hello Uday Kumar,

Kindly check the reply to your previous comment. We have given you a non-macro solution.

Dear Gilson,

Thanks for your appreciation. Stay in touch with ExcelDemy to get more helpful content.

Regards
Shamima | Project Manager | ExcelDemy

Dear Syed Anwar Hussain,

Thanks for your appreciation.

Regards
Shamima | Project Manager | ExcelDemy

Hello, An!

You are most welcome. To get helpful content follow ExcelDemy.

Regards
ExcelDemy

Hi Rassulsson!

Thanks for your appreciation.

Regards
ExcelDemy

Hello, Hamza!

Thanks for your appreciation. We are glad that our article helped you.

Regards
ExcelDemy

Hello, Nabil sellami!

Thanks for your appreciation. To get more enjoyable articles stay in touch with ExcelDemy.

Regards
ExcelDemy

Hello, Helen!

Thanks for your appreciation. To get more helpful information stay in touch with ExcelDemy.

Regards
ExcelDemy

Hi, Elton!

Thanks for your appreciation. We will try to launch pdf files.

Regards
ExcelDemy

Hi, Bosco!

Thanks for your appreciation. To get more informative contents stay in touch with ExcelDemy.

Regards
ExcelDemy

Hello, Aleksandra!

Thanks for your appreciation.

Regards
ExcelDemy

Hello, Harry!

You can download the copy from Download Sample Workbook

Regards
ExcelDemy

Hi Abishek Sharma!

If you want the Excel file then you can download it from the Download Practice Workbook section. Or you need other assistance you can comment or send us mail at [email protected]

Hello, Ruben!

It’s glad to know that our content is helpful to you. To know more about Excel stay in touch with ExcelDemy.

Regards
ExcelDemy

Hello, Tanael Wawe!

Thanks for your appreciation. Stay in touch with ExcelDemy to get more helpful content.

Regards
ExcelDemy

Hello, Ahnaf!

You are most welcome. stay in touch with ExcelDemy.

Regards
ExcelDemy

Hello, Mohan!

Thanks for your appreciation. Stay in touch with ExcelDemy for more helpful content.

Regards
ExcelDemy

Hello, ExcelAmateur!

Thanks for your appreciation. To get more helpful content with explanations stay in touch with ExcelDemy.

Regards
ExcelDemy

Glad to hear that.

Regards
ExcelDemy

Hello!

Thanks for your appreciation.

Regards
ExcelDemy

Hi, Dhaval!

Thanks for your appreciation.

Regards
ExcelDemy

Hello, Suzette!

Thanks for your appreciation. We will try to use fonts that will be easier to read for old eyes.

Regards
ExcelDemy

Hello, Instast!

Thanks for your appreciation. To get more helpful content stay in touch with ExcelDemy.

Regards
ExcelDemy

Hello, Andre!

Thanks for your appreciation. To get more helpful posts stay in touch with ExcelDemy.

Regards
ExcelDemy

Hello, Im!

Hope you are doing well. Thanks for your appreciation.

Regards
ExcelDemy

Hello, Aston!

Hope you are doing well. To show your data labels in millions kindly follow this article Millions in Data Labels

Regards
ExcelDemy

Hello, Kim!

Thanks for your appreciation. For more useful content visit our site ExcelDemy.

Regards
ExcelDemy

Hello Gerald,
Do you need to know the conversion from Excel to PDF? Right? Because the original bank statement was in PDF format. So, here you can follow the steps below to convert your Excel file back to PDF file.
Firstly, you need to open your Excel file.
Secondly, click the File button at the top-left corner of the Excel file.

Thirdly, go to Save As and click it.

Fourthly, choose PDF from the Save option at the top-right corner by clicking the drop-down button.

Finally, choose a particular location to keep it by selecting Browse button.

Thanks
Regards
ExcelDemy

Hello, SS!

Hope you are doing well. We are very sorry that you are facing some troubles with advertising. But will try our best to give you a nicer experience.

Regards
ExcelDemy

Hi Peter

Thanks for your appreciation.

Regards
ExcelDemy

Hi N,

Thanks for your appreciation. Please visit our site for more excel-related problems.

Thanks

Regards
ExcelDemy

Hi GIRIDAR N,

Thanks for your appreciation and we are glad to help you. For any types of Excel-related problems kindly reach out to us.

Regards
ExcelDemy

Hi Exceler,

Here, I tried the first method for 50 sets of data and it worked but you have to change the cell references based on your dataset. For your better understanding, I am attaching the images along with the formula.
=INDEX($D$5:$D$30,MATCH(1,MMULT(--($B$5:$C$30=F5),TRANSPOSE(COLUMN($B$5:$C$30)^0)),0))

The images of datasets

Here, I used the formula for the entire dataset. I changed the references based on my dataset.

Output for 50 values:

Note: If your dataset is very large kindly send us your dataset

Thanks
Shamima Sultana

Hello Mark,

We uploaded the Excel files again, you can check these files also. If you find any difficulty opening the file let us know.

Thanks

Hi Froggy,
Hope you are doing well. Thanks for reaching out to us with your issue.

As you intend to apply the above code to a workbook with multiple sheets so you need to add some extra lines in your code to define all available worksheets or selected worksheets.

Here, I will give you two solution
1. For selected sheets
2. For all the available sheets in a workbook

1. If you want to apply the same code in some selected sheets then use the code given below where I declared sheets names by using an Array.

Option Explicit
Sub AddSpaceBetweenRows()
Dim all_sheets As Worksheet
Dim rng As Range
Dim i As Long
Dim all As Variant

Set all = sheets(Array(“VBA1”, “VBA2”))

For Each all_sheets In all
all_sheets.Select
Set rng = Range(“B5:E9”)
For i = rng.Rows.Count To 2 Step -1
rng.Rows(i).EntireRow.Insert
Next i
Next
End Sub

2. To loop through all the available sheets of your workbook you will need to use the code given below where I declared all_sheets and used an extra For Loop.

For your better understanding, I’m providing the modified code here,

Option Explicit
Sub AddSpaceBetweenRows()
Dim all_sheets As Worksheet
Dim rng As Range
Dim i As Long

For Each all_sheets In Worksheets
all_sheets.Select
Set rng = Range(“B5:E9”)
For i = rng.Rows.Count To 2 Step -1
rng.Rows(i).EntireRow.Insert
Next i
Next
End Sub

Note: Based on your Excel file you will need to change the sheet name and the cell range selection.

For further queries comment down below.

Hi Helen,
I’m glad that our article helped you. For any types of Excel related problems kindly check out our ExcelDemy site.

Thanks
Shamima

Hi A,

Thanks for your appreciation.

Hi Deon Bailey,
Hope you are doing well. Thanks for reaching out to me with your issue.

As you didn’t share your Excel file that’s why it is hard to understand your sheet name and where is the problem occurring.

But you need not to worry, I’m giving you a possible solution so that you can add data to your selected sheet to the last row.

The reason for overwriting the added data is your code wasn’t finding the last row it was showing 1 as the last row number.

Here, I added data according to my dataset I used in this article. I commented out your code and added some required lines.

Sub Insert_Value_from_LastRow()

‘TargetSheet = Cmb_Months.Value
‘If TargetSheet = “” Then
‘Exit Sub
‘End If
Dim targetSheet As Worksheet
Set targetSheet = ThisWorkbook.Worksheets(“Dataset”)
targetSheet.Activate
‘lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
MsgBox LastRow

‘ActiveSheet.Cells(LastRow + 6, 2).Value = Cmb_Area.Value
‘ActiveSheet.Cells(LastRow + 6, 3).Value = Txt_Ln_Manager.Value
‘ActiveSheet.Cells(LastRow + 6, 4).Value = Txt_FName.Value
‘ActiveSheet.Cells(LastRow + 6, 5).Value = Txt_Surname.Value
‘ActiveSheet.Cells(LastRow + 6, 6).Value = Txt_S_Number.Value

ActiveSheet.Cells(LastRow + 3, 2).Value = “Rachel Ross”
ActiveSheet.Cells(LastRow + 3, 3).Value = “Germany”
ActiveSheet.Cells(LastRow + 3, 4).Value = “laptop”
ActiveSheet.Cells(LastRow + 3, 5).Value = 4567

End Sub

Note: Whenever you want to insert or add data after a particular row it is better to see the last row number by using MsgBox. It will help you to understand why data is overlapping.

I also added the images.

For further queries, you can send me your Excel file.

Thanks
Shamima Sultana