Worksheets("FROM").Range("A1:A100").Copy _       
    Destination := Worksheets("TO").Range("A1")

Sub abc()

Dim sht As Worksheet
Dim LastRow As Long, i As Long

Set sht = ActiveWorkbook.Sheets(1)
LastRow = sht.Cells(sht.Rows.Count, "B").End(xlUp).Row

For i = 2 To LastRow
    If Cells(i, 1).Value <> Cells(i, 2).Value Then Range(Cells(i, 2), Cells(i, 3)).Delete Shift:=xlUp
Next i
End Sub

Sub abc()
    Set rr = Application.InputBox( _
    prompt:="Select a range on this worksheet", _
    Type:=8)
    For Each cell In rr
    cell.Select
        If cell.HasFormula = True And cell.Value = "" And cell.EntireRow.Hidden = False Then Rows(cell.Row).EntireRow.Hidden = True
    Next cell
End Sub

SELECT t1.[Produkta nosaukums],t1.[Produkta kods],t1.[Polises numurs],t1.[OCTA numurs],t1.[Izdosanas datums],t1.[Sakuma datums],t1.[Beigu datums],t1.[Partrauksanas datums],t1.[Apdr# nemejs],t1.[Apdr# nemeja pers#kods],t1.[Automasinas marka],t1.[Automasinas modelis],t1.[Automasinas numurs],t1.[Auto izlaiduma datums],t1.[GWP sakotneja],t1.[GWP pec izmainam],t1.[Polises statuss], t2.[FLEET], t2.[Territory] FROM [CRRATYLV$] as t1 LEFT JOIN [FLEET$] as t2 ON t1.[Polises numurs] = t2.[Polises numurs] where t1.[Produkta kods] = 440 or t1.[Produkta kods] = 430

Public Function ADOd(ByVal strSql$, ByVal FilePath$, ByVal OutputRange As Range, _
ByVal FieldsName As Boolean, ByVal OutputFieldsName As Boolean)
'==============================================================================

Dim sCon As String, FieldName As String
Dim rs As Object, cn  As Object
Set rs = CreateObject("ADODB.Recordset")
Set cn = CreateObject("ADODB.Connection")
If FieldsName Then FieldName = "Yes" Else FieldName = "No"
Select Case CLng(Split(Application.Version, ".")(0))
    Case Is < 12
        sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath _
          & ";Extended Properties=""Excel 8.0;HDR=" & FieldName & ";IMEX=1"";"
    Case Is >= 12
        sCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FilePath _
        & ";Extended Properties=""Excel 12.0;HDR=" & FieldName & ";IMEX=1"";"
End Select

cn.Open sCon
If Not cn.State = 1 Then Exit Function
Set rs = cn.Execute(strSql)
If Not FieldsName Then OutputFieldsName = False
 If OutputFieldsName Then
    For i = 0 To rs.Fields.Count - 1
    OutputRange.Offset(0, i) = rs.Fields(i).Name
    Next
    Set OutputRange = OutputRange.Offset(1, 0)
 End If
 DoEvents
OutputRange.CopyFromRecordset rs
rs.Close:  cn.Close
Set cn = Nothing: Set rs = Nothing
End Function

Sub SQL()
Dim strSql2$
strSql2 = Sheets("MACRO").[c1]
Sheets("sqls").[a1].CurrentRegion.ClearContents
Call ADOd(strSql2, ThisWorkbook.FullName, Sheets("sqls").[a1], True, True)
Sheets("sqls").Activate
End Sub

select [Polises numurs], [Polises statuss], [Apdr. Nemejs] from [CRRATYLV$] where [Produkta kods] = 440

Sub ConvertToVaules()

If ActiveSheet.AutoFilterMode = True Then
        Dim rArea As Range
            For Each rArea In Selection.SpecialCells(xlCellTypeVisible).Areas
            rArea.Value = rArea.Value
            rArea.NumberFormat = "0"
        Next             
Else
        With Selection
            .NumberFormat = "0"
            .Value = .Value
        End With
End If

End Sub

Dim WB1 As Workbook, WB2 As Workbook
Set WB1 = ActiveWorkbook

Sheets("CRRATYLV").AutoFilterMode = False

    WB1.Sheets("CRRATYLV").Select
    Set WB2 = Workbooks.Add
'    Set WB2 = ActiveWorkbook
    Worksheets(1).Name = "DATA"
    WB1.Activate
'Dim LastrowCR As Long
'LastrowCR = WB1.Worksheets("CRRATYLV").Range("A" & Rows.Count).End(xlUp).Row
Dim Nname() As Variant
Dim xy As Long
Dim yx As Integer
Nname = Array("Produkta nosaukums", "Polišu izdevēji")
yx = UBound(Nname, 1)
For xy = 0 To yx

'    Produkta nosaukums
Dim PNf As Range, PrN As Long, Fcoll As String
    With Worksheets("CRRATYLV").Rows("1:1")
        Set PNf = .Find(What:=Nname(xy), LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
            If Not PNf Is Nothing Then
            PrN = PNf.Column
            End If
    End With
    Set PNf = Nothing
    lngI = Cells(Rows.Count, PrN).End(xlUp).Row
    Range(Cells(1, PrN), Cells(lngI, PrN)).Copy
    WB2.Worksheets("DATA").Cells(1, xy + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
Next xy
End