Remove Numbers at Beginning of text from a cell

[Pete2020]

I have huge text data contains list of topics and course contents.I am facing a challenge to remove intro section numbers and session Numbers and much more to a normal text pattern. Individual removing them is taking a lot of time and effort.

I need the help of Mr. Excel Experts in resolving this through a Macro or VB Function.In the sample data, I have every thing in column A and my request to remove the intros text and numbers in the same column A.

I observed that in my sample
1. Most of the intros patterns is having serially numbered row after the other
2. 25% of data is followed by intros and text in below row without numbers (Chapter 1 followed by topics with out numbers and Chapter2 so on)

Out Put
=======
I am looking for a solution to remove all numbers and text before the number as shown in the example

Book1
	A	B
1	Course Intro - Before Macro- Sample data	After Macro
2	1. Introduction	Introduction
3	2.) Get to know things	Get to know things
4	(1). Happy to see You	Happy to see You
5	1. Nice to interact with You	Nice to interact with You
6	Session 1 Number functions	Number functions
7	Session 1 (a) String data types and functions	String data types and functions
8	Session 1B The DUAL table and Number types	The DUAL table and Number types
9	Session 2 Adding a second table	Adding a second table
10	Session 2A Adding a third table	Adding a third table
11	Session 2B Creating and querying part of a table	Creating and querying part of a table
12	Session 2 Practice Activities	Practice Activities
13	Session 2 Summarising and ordering data	Summarising and ordering data
14	Session 3 Database terminology	Like Above Format
15	Session 3a Find missing data, and delete and update data	Like Above Format
16	Session4 Practice Activities	Like Above Format
17	Session5: Practice Activities	Like Above Format
18	Chapter1 Introduction	Like Above Format
19	Chapter 2:Benefits	Like Above Format
20	Section 1 Overview	Like Above Format
21	Section 2: Setting up Project	Like Above Format
22	Part 1 Objectives	Like Above Format
23	Part 2: Outcomes	Like Above Format
24	Step 01 Understanding Full Stack Application Architecture	Like Above Format
25	Step 02 Developing Spring Applications before Spring Boot	Like Above Format
26	Step 02 Quick Overview of Modern JavaScript and TypeScript	Like Above Format
27	Step 02 World before JPA JDBC, Spring JDBC and myBatis	Like Above Format
28	Step 03 Installing Angular CLI Awesome Tool to create Angular Projects	Like Above Format
29	Step 03 - Introduction to JPA	Like Above Format
30	Step 03 Using Spring Initializr to create a Spring Boot Application	Like Above Format
31	Step 04 Creating a JPA Project using Spring Initializr	Like Above Format
32	Step-04 Creating a Simple REST Controller	Like Above Format
33	Step 04: Creating a JPA Project using Spring Initializr	Like Above Format
34	Step 04: Creating a Simple REST Controller	Like Above Format
35	Step-05 Creating a JPA Project using Spring Initializr	Like Above Format
36	Step-05 Creating a Simple REST Controller	Like Above Format
37	Step 1 Introduction to JPA	Like Above Format
38	Step 2 Benefits of SAAS	Like Above Format
39	Exercise 163 Exceptions	Like Above Format
40	Exercise 163 Solution	Like Above Format
41	Exercise 03a Answer	Like Above Format
42	Exercise 03a Question	Like Above Format
43	Exercise 04a Answer	Like Above Format
44	Exercise 04a Question	Like Above Format
45	Exercise 07a Answer	Like Above Format
46	Exercise 07a Question	Like Above Format
47	Day 1 Overview of the Speaker	Like Above Format
48	Day 2.) Topic Overview	Like Above Format
49	Week -1 About the Speaker	Like Above Format
50	Week 2 - Introduction	About the Speaker
51		Introduction
Sheet1

 

[Pete2020]

Thanks @mikerickson for giving awesome function. It works.

If Possible can you provide me a macro which runs on column A.

My data is around 50k rows. Thanks

 

[mikerickson]

Dim i as long
Dim arrValues as Variant

With Range("A:A")
    With Range(.Cells(1,1), .Cells(Rows.Count).End(xlUp)
        arrValues = .Value

        For i = 1 to .Rows.Count
            arrValues(i,1) = RemoveHeading(arrValues(i,1))
        Next i
    
        .Offset(0, 0).Value = arrValues :Rem adjust as desired
    End With
End With