Newbie question: Copy from two sheets and paste into another sheet in VBA

[MizuHana]

Hi everyone! I am trying to learn some VBA stuff and I just couldn`t find any code that would help me with I am sure a very basic issue.
I need to take 3 columns from Sheet 1, paste it in Info Sheet starting at A1 and it will fill 3 columns to C.
Then I need to grab info from Sheet2 and paste in in the row A-C in the first open row.
Then I want it to become a table. I am just not sure how to connect all of this.
I would be very happy if someone could help. Thank you!

Sub OneCell()
Sheets("Sheet1").Select
Range("B:B, E:E, A:A").Copy
Sheets("Info").Select
Range("A:A").Select
ActiveSheet.Paste

Sheets("Sheet2").Select
Range("K:K, I:I, A:A").Copy
Sheets("Info").Select
Range("A:A").Select
ActiveSheet.Paste

Sub sbCreatTable()

'Create Table in Excel VBA
Sheet1.ListObjects.Add(xlSrcRange, Range("A1:D10"), , xlYes).Name = "myTable1"
End Sub

 

[Haree]

Hi, Can you kindly share a sample data through dropbox or drive. Thank you

 

[MizuHana]

Sorry I can`t quite share any data but it is simple like this:
I wanna coppy A column, C column and F column to Info A column, B column, C column.

A	B	C	D	E	F	G	H
Bla	Blab	Blabl	Blabla	Blablab	Blablabl	Blablabla	Blablablab
Cla	Cla	Cla	Cla	Cla	Cla	Cla	Cla

 

[Haree]

Hi
Kindly take backup of your data and try the following code. Please take note that I am also a newbie and learning as well. Kindly take a backup before trying the following code

Sub Copy()
Application.ScreenUpdating = False
Dim ws1, ws2 As Worksheet
Dim lr, lr2 As Long
Dim Rngcpy, Rnginfo As Range

Set ws1 = ThisWorkbook.Sheets("Data")
Set ws2 = ThisWorkbook.Sheets("Info")

   With ws1
        lr = Range("A" & Rows.Count).End(xlUp).Row
        Set Rngcpy = Union(Range("A1:A" & lr), Range("C1:C" & lr), Range("F1:F" & lr))
    End With
        
    With ws2
        lr2 = ws2.Range("A" & Rows.Count).End(xlUp).Row
    End With
        If lr2 = 0 Then
        Set Rnginfo = ws2.Range("A1")
        Else
        Set Rnginfo = ws2.Range("A" & lr2 + 1)
        End If
        Rngcpy.Copy Rnginfo
        
Application.ScreenUpdating = True
End Sub